Nr. 11/85 November 

DM 6.50, sfr 6.50, öS 50, Lit. 5900, hfl 7.50 



MAGAZIN FÜR APPLE-COMPUTER 



Trickfilmgrafik 

Plaloitdruck 

640K-ProDOS 

Print-Using 


Hüthia 

PUBLIKATION 


'4 















Hü4his-FACHBUCH-TIP 






Apple Assembler 

Tips und Tricks 

von Ulrich Stiehl 

1984, 226 S., 3 Abb., kart., 

DM 34,- 

ISBN 3-7785-1047-9 
Hüthig Verlag, Heidelberg 

„Apple Assembler“ wendet sich 
an alle, die bereits Anfängerkennt¬ 
nisse der 6502-Programmierung 
haben - z.B. aufgrund des Buches 
„Apple Maschinensprache“ - und 
nunmehr ein Nachschlagewerk für 
ihren Apple II Plus/Ile/Ilc suchen, 
in dem alle wichtigen ROM-Routi- 
nen sowie eine Vielzahl sonstiger 
Hilfsprogramme in einer systemati¬ 
schen Form zusammengesteilt 
werden. Insgesamt umfaßt dieses 
Buch über 40 Utilities, darunter 
mehrere völlig neuartige Program¬ 
me wie Double-Lores, Double Hi- 
res, Screen-Format u.a. 

Der erste Teil enthält ein Repetito¬ 
rium der wichtigsten Befehle, 
Adressierungsarten und sonstigen 
Besonderheiten des 6502. 



Im zweiten Teil werden alle Adres¬ 
sen des Monitors zusammenge¬ 
stellt, die für Assembler-Program¬ 
mierer von Nutzen sein können. 
Darüber hinaus findet der Leser Un¬ 
terroutinen für hexadezimale Ad¬ 
dition/Subtraktion/Multiplikation/ 
Division, Binär-Hex-ASCII-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit der 
Speicherverwaltung der Language 
Card und der Ile-64K-Karte und 
enthält Move-Programme zum 
Verschieben von Daten in die und 
aus der Language Card sowie der 
64K-Karte. 

Der vierte Teil ist dem Appiesoft- 
ROM gewidmet und listet eine 
große Anzahl nützlicher Interpre¬ 
ter-Adressen. Bei den Utility-Pro¬ 
grammen liegt das Schwergewicht 
auf Fließkommamathematik ein¬ 
schließlich Print Using. 


Der letzte Teil behandelt den Text- 
und Graphikspeicher. Neben ei¬ 
nem professionellen Maskengene¬ 
ratorprogramm werden auch Routi¬ 
nen zur Double-Lores- und Dou- 
ble-Hires-Grafik vorgestellt. 

Aus dem Inhalt: 

6520-Repetitorium - Monitor-ROM 
- Speicherverwaiiung - Applesoft- 
ROM - Text- und Grafikspeicher 
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Jobs’ Next Apple 

Das Jahr 1985 wird vielen Mikrocomputer- 
Herstellern in traumatischer Erinnerung 
bleiben. Bis Ende Januar herrschte eine 
trügerische Ruhe, denn die Läger des Ein¬ 
zelhandels waren vor Weihnachten mit Mi- 
kros vollgepumpt worden. Danach machte 
sich jedoch der „Pipeline-Effekt“ bemerk¬ 
bar: Der Weihnachtsberg war wider Erwar¬ 
ten nicht abgebaut worden, und Nachbe¬ 
stellungen fanden infolgedessen kaum 
statt. IBM erkannte als erste Firma die 
Zeichen der Zeit und trug ihren mit gro¬ 
ßem Werberummel lancierten PC-Junior 
bereits vor der europäischen Markteinfüh¬ 
rung zu Grabe. Danach überschlugen sich 
förmlich die Hiobsbotschaften in den Wirt¬ 
schaftsblättern. Allenthalben wurden Ge¬ 
winneinbußen und vielfach sogar Verluste 
gemeldet, wobei die branchenweite Flaute 
auch die Hersteller von Großanlagen in 
Mitleidenschaft zog (z.B. Wang, Control 
Data u.a.). Insofern stellen die wirtschaftli¬ 
chen Entwicklungen bei Apple keinen Ein¬ 
zelfall dar. Bei Apple kommen jedoch ne¬ 
ben den „exogenen“ Ursachen (Markt¬ 
flaute, EDV-Müdigkeit) die „endogenen“ 
Einflüsse hinzu: Am 17. September ver¬ 
kündete Steve Jobs der verdutzten Pres¬ 
se, daß er die Firma Apple verlassen und 
eine eigene Firma namens „Next“ grün¬ 
den werde, die den „nächsten“ Apple ent¬ 
wickeln werde. Um dies alles psycholo¬ 
gisch erklären zu können, muß man bis 
zur „Garagenzeit“ der beiden Gründer 
Wozniak und Jobs zurückgehen und mit 
einem irrigen Klischee aufräumen: Richtig 
ist, daß Steve Wozniak als das technische 
Genie gilt, das den Apple II konzipiert und 
in vielen Hard- und Software-Details 
selbst entwickelt hat. Falsch ist dagegen 
das Klischee, Steve Jobs sei das ökono¬ 
mische Genie gewesen, das den Apple II 
zur Marktreife geführt habe. Vielmehr hat 
es Steve Jobs lediglich verstanden, die 
richtigen (?) Manager anzuheuern, zu¬ 
nächst Mike Markkula von Intel und später 
John Sculley von Pepsi-Cola. 

Steve Jobs, den es gewurmt haben muß, 
daß er nicht den technischen Durchblick 
eines Wozniak oder den wirtschaftlichen 
Weitblick eines Markkula hatte, machte 
sich dann seit etwa 1983 zum Entwick¬ 
lungschef der Macintosh-Abteilung, wobei 
er die denkbar größte Marketing-Todsün¬ 
de begang, nämlich die völlige Ignorierung 
des Marktes und der Wünsche der potenti¬ 
ellen Käufer. Als dann Anfang dieses Jah¬ 
res anläßlich einer Aktionärsversammlung 
der Apple II mit keinem Wort erwähnt wur- 
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de, obwohl der Löwenanteil der Erlöse 
vom Apple II und nicht vom Macintosh 
herrührte, kam es zum großen Eklat und 
kurz darauf zum Ausstieg von Steve Woz¬ 
niak aus dem Konzern. Es wurde durch 
Steve Wozniak bekannt, daß viele Neuhei¬ 
ten für den Apple II in der Schublade ver¬ 
moderten, weil die Apple-Il-Weiterent- 
wicklung von der Macintosh-Abteilung 
nicht zugelassen wurde. Im Laufe der er¬ 
sten Jahreshälfte verschlechterte sich 
dann die Ertragslage dramatisch. Bei¬ 
spielsweise sank der Aktienkurs seit der 
Macintosh-Ära von $62.00 (Mitte 1983) bis 
auf $16.00 (September 1985). Nun zog 
John Sculley die Notbremse an. Zunächst 
wurde die Belegschaft um 20% reduziert, 
dann wurde Jobs im Juni die Entschei¬ 
dungsvollmacht für die Macintosh-Division 
entzogen. Soeben hat Jobs Apple verlas¬ 
sen und eine Nachfolgefirma unter dem 
sinnträchtigen Namen „Next“ in Sunny- 
vale, Kalifornien gegründet. Im Gegenzug 
strengt der Apple-Konzern jetzt einen 
Wettbewerbsprozeß gegen Jobs an, der 
sich wahrscheinlich über Monate hinzie¬ 
hen wird. Wird es damit neben dem „first“ 
Jobs-Macintosh bald einen kompatiblen 
„next“ Jobs-Macintosh geben? Immerhin 
hat Jobs mit einem Aktienanteil von 85 
Millionen Dollar die Finanzkraft, um dem 
angeschlagenen „Mutterhaus“ Paroli zu 
bieten. 

Dem verunsicherten Apple-Il-Besitzer 
stellt sich die Frage, wie dieses Drama, 
das die „FAZ“ mit der Fernsehserie „Dal¬ 
las“ vergleicht, weitergehen wird. Bezüg¬ 
lich des Apple II kann man zumindest kon¬ 
statieren, daß nach der Befreiung von der 
Jobs-Last fieberhaft an Neuentwicklungen 
gearbeitet wird, von denen noch in diesem 
Herbst mehrere erscheinen werden, z.B. 
neue ROMs (s. Peeker 10/85), Speicher¬ 
erweiterung bis 1 Megabyte, 800K-3,5- 
Zoll-Unidisk mit neuem ProDOS und Pas¬ 
cal, farbfähiger Imagewriter II, Farbmonitor 
für llc u.a. All dies läßt uns hoffen. Nach¬ 
dem jedoch das jugendlich-frische Apple- 
Image mit den schlacksigen Sonnyboys 
aus Southern California lädiert ist, werden 
in Zukunft nur Qualität und Preis überzeu¬ 
gen können. 
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Das hier vorgestellte Programm wen¬ 
det sich an den fortgeschrittenen As¬ 
semblerprogrammierer, der eigene 
Spiele oder Animationen mit professio¬ 
neller Grafik erstellen möchte. Mit ei¬ 
nem komfortablen Sprite-Editor kön¬ 
nen Objekte erstellt und in eigene As- 
sembierprogramme eingebunden wer¬ 
den. Die Darstellung der Sprites über¬ 
nimmt das Modui ASTA. 

Ziel war die Entwicklung einer Routine, die 
möglichst viele Figuren gleichzeitig flim¬ 
merfrei über den Bildschirm bewegt. Da¬ 
bei sollte die Ansteuerung durch andere 
Programme so einfach wie die Verwen¬ 
dung der Shapes in Applesoft sein. 
Shapes sind für diese Aufgabe viel zu 
langsam. Deshalb müssen die Figuren auf 
andere Weise abgespeichert werden. Als 
Lösung bietet sich die Verwendung von 
Sprites an, wie sie vom Commodore 64 
her bekannt sind. Eine Figur wird bewegt, 
indem die alte Figur gelöscht und etwas 
versetzt neu gezeichnet wird. Dabei 
kommt es zu einem Flimmern auf dem 
Bildschirm, weil zeitweise die Figur nicht 
oder nur teilweise auf dem Bild erscheint. 
Deshalb ist es besser, ein Bild erst zu 
zeigen, wenn es fertig gezeichnet ist. Die¬ 
se Trickfilmtechnik ist mit dem Apple leicht 
zu realisieren, da zwei unabhängige Gra¬ 
fikseiten (Pages) vorhanden sind. Wäh¬ 
rend man eine Seite zeigt, wird in der 
anderen das nächste Bild fertig gezeich¬ 
net. Dann kann man auf die andere Seite 
umschalten und umgekehrt verfahren 
(sog. Page-Flipping). 

Die hier vorgestellte Routine arbeitet mit 
drei Seiten. Page 1 (im Bereich $2000- 
$3FFF) und Page 2 ($4000-$5FFF) wer¬ 
den abwechselnd zur Darstellung benutzt, 
während in Page 3 ($6000-$7FFF) nur der 
Hintergrund gespeichert ist. Dies ist erfor¬ 
derlich, da die Objekte den Bildschirm 
überschreiben, und zu deren Löschung 
der Hintergrund wieder hergestellt werden 
muß. 

Die Routine erlaubt bis zu 30 gleichzeitig 
bewegte Objekte, wobei jedoch 127 ver¬ 
schiedene Sprites verwaltet werden, und 
liefert dabei - je nach Anzahl und Größe 
der Objekte - 5-25 Bilder pro Sekunde. 
Auf einfache Weise können auch alle vor¬ 
handenen Farben benutzt werden. Der 
Name der Routine ist ASTA (Animation 
von Sprites mit Tabellenhilfe). 

1. ASTA 

1.1. Die Sprites 

Die Abspeicherung der Figuren Ist eine 
Abwandlung des In (1) beschriebenen 
Konzepts. Im Grafikspeicher sind jeweils 
sieben nebeneinanderliegende Punkte zu 



einem Byte zusammengefaßt. Wobei eine 
1 in den Bits 1-7 (die Bits sind im folgen¬ 
den von 1 bis 8 durchnumeriert) einem 
gesetzten Punkt entspricht. Das achte Bit 
beeinflußt die Farbe der Punkte. Bei einem 
Sprite werden alle Punkte der Figur direkt 
zu Bytes zusammengefaßt. Zum Zeichnen 
des Sprites braucht man nur noch die 
Bytes in den Speicher zu poken. 

Wenn man ein solches Sprite horizontal 
verschieben möchte, tritt jedoch ein Pro¬ 
blem auf: Beginnt man ein Byte später, hat 
man die Figur gleich um sieben Punkte 
verschoben. Wie kann man aber die Figur 
um einzelne Punkte verschieben? Dazu 
könnte man mit den Shift-Befehlen (ASL/ 
LSR) alle Bytes in eine Richtung verschie¬ 
ben, jedoch bekäme man dann Schwierig¬ 
keiten mit dem 8. Bit und brauchte auch 
mehr Zeit für das Verschieben als für das 
Zeichnen des Sprites. Deshalb ist es ein¬ 
facher und vor allem schneller, für jede der 
sieben Möglichkeiten ein entsprechend 
geshiftetes Sprite (sog. Bitsprite) abzu¬ 
speichern. 

Damit die ASTA-Routine die Sprites richtig 
zeichnen kann, müssen ihnen noch einige 
Angaben hinzugefügt werden. Vor jedem 
Bitsprite werden mit zwei Bytes die Anzahl 
der Bytes je Zeile und die Anzahl der 
Zeilen angegeben. Vor den sieben Bitspri¬ 
tes muß noch eine Bitsprite-Tabelle mit 
den einzelnen Startadressen stehen. 
Schließlich braucht man noch eine Sprite- 
Tabelie (STAB) mit den Adressen aller 
Sprites; die ASTA-Routine benötigt dann 
nur noch eine Nummer und sucht sich 
mittels der beiden Tabellen und der ange¬ 
gebenen Bildschirmposition das richtige 
Bitsprite heraus. 

Anhand des Beispiels in Bild 1 können Sie 
das System noch einmal nachvollziehen. 
Um die Erstellung der Sprites zu vereinfa¬ 
chen, ist es naheliegend, die mühselige 
Arbeit mit einem Programm zu erledigen. 
Mit dem weiter unten beschriebenen 
Sprite-Editor können Sie ganz einfach die 
Sprites entwerfen und berechnen lassen. 


1.2. Die ASTA-Positionstabelle 

Ab Adresse $8000 steht die Positionsta¬ 
belle, in der alle Angaben über die zu 
zeichnenden Objekte stehen. Zunächst 
fällt auf, daß sie In drei große Bereiche 
aufgeteilt Ist. Die einzelnen Variablen ha¬ 
ben dabei jeweils die gleiche Endung: 

• ...TD - nächstes Bild 
(zu zeichnende Objekte), 

• ...TZ - angezeigtes Bild 
(Zwischenspeicher), 

• ...TL - letztes Bild 
(zu löschende Objekte). 

Von dem aufrufenden Programm braucht 
nur der erstgenannte Bereich verändert zu 
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werden. Die beiden anderen Bereiche 
werden von der ASTA-Routine erzeugt 
und dienen der Verwaltung. Jeder Variablen 
ist ein Feld von 30 Bytes zugeordnet, wo¬ 
bei das erste Byte für das erste Objekt, 
das zweite Byte für das zweite Objekt vor¬ 
gesehen ist usw. Dadurch ist es in Assem¬ 
bler sehr einfach, einen Wert zu lesen 
oder zu schreiben. Man braucht nur die 
Nummer des Objekts als Index zu laden 
(im X- oder Y-Register) und kann die Wer¬ 
te dann mit der indizierten Adressierung 
(z.B. LDASPRTD,Y) abrufen. 


1.2.1. Die Bedeutung der einzelnen 
Variablen 

SPRTD ($8000) - Sprite-Nummer (im Be¬ 
reich 0-127): Es können bis zu 127 ver¬ 
schiedene Sprites verwendet werden. 
Sprite-Nummer 0 bedeutet, daß das ent¬ 
sprechende Objekt nicht gezeichnet wer¬ 
den soll. 

XWRTD ($801E) - X-Koordinate (im Be¬ 
reich 0-139): ASTA ist auf die Ausnutzung 
der Farbmöglichkeiten des Apples ausge¬ 
legt. Im normalen Raster (X im Bereich 0- 
279) hängt die Farbe von der X-Position 
ab. Alle Punkte mit geraden X-Koordinaten 
sind grün, alle Punkte mit ungeraden X- 
Koordlnaten violett; bei gesetztem Bit 8 
entsprechend orange und blau. Sind zwei 
benachbarte Punkte gesetzt, ergibt sich 
weiß. Daraus folgt, daß ein farbiges Sprite 
in X-Richtung nur in Zweierschritten be¬ 
wegt werden darf, da sonst die Farben 
wechseln. Durch die Halbierung der Ein¬ 
teilung ist dieses Problem beseitigt. Wird 
XWRTD um eins erhöht, bewegt sich das 
Sprite um zwei Punkte nach rechts und 
behält die richtige Farbe. 

XBYTD ($803C) - interne ASTA-Variable 
(X-Byte, 0-28): Diese Variable muß vom 
aufrufenden Programm nicht gesetzt 
werden. 

XBITD ($805A) - interne ASTA-Varlabie 
(Bitsprite-Nummer): ASTA berechnet mit 
XWRTD das erste Byte des Sprites in der 
Zeile und die Nummer des Bitsprites (muß 
ebenfalls nicht gesetzt werden). 

YWRTD ($8078) - Y-Koordinate (Bereich 
0-191): Die Y-Koordlnate entspricht der 
normalen Koordinate, d.h. 0 = oben, 191 
= unten. 

YMATD ($8096) - untere Bildgrenze (im 
Bereich 0-191): Die Y-Koordinate eines 
Objektes kann nach unten begrenzt wer¬ 
den (z.B. weil es hinter einer Mauer her¬ 
vorkommt). Unterhalb von YMATD wird 
das Sprite nicht mehr weiter gezeichnet. 
DRWTD ($80B4) - Zeichenmodus, BIt-8- 
Flag (0 = normal, 1 = Überzeichen): Im 
Normalmodus wird beim Zeichnen der 
Hintergrund übernommen und das alte 
Sprite gelöscht, bevor das neue Sprite 
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gezeichnen wird. Bei besonders großen 
Sprites ist jedoch ein anderer Zeichenmo¬ 
dus zeitlich vorteilhafter. Wenn Bit 8 von 
DRWTD gesetzt ist, wird nur das neue 
Sprite gezeichnet, ohne den Hintergrund 
zu übernehmen und ohne das alte Sprite 
zu löschen. 

MSKTD ($80D2) - Farbmaske ($80 = in¬ 
vertiert, $00 = normal); Ist Bit 8 von 
MSKTD gesetzt, werden die Farben des 
Sprites invertiert d.h. aus grün wird oran¬ 
ge, aus violett wird blau und umgekehrt. 

Die X,Y-Koordinaten geben die obere, lin¬ 
ke Ecke des zu zeichnenden Objekts an. 

Normalerweise brauchen Sie alle Varia¬ 
blen nur einmal einzusetzen. Danach 
reicht meist die Veränderung einzelner 
Werte. ASTA läßt alle Daten in der TD- 
Tabelle unverändert stehen (außer XBITD/ 
XBYTD). Um die POSTABelle ganz zu lö¬ 
schen, können Sie die POSINIT-Routine 
aufrufen. 

1,3. Der Aufruf von ASTA 

Wie bringen Sie ASTA in Ihrem eigenen 
Programm unter? Sehen Sie sich dazu das 
nachfolgende allgemeine Beispiel für ein 
Spiel an (siehe hierzu auch ASTA- 
.DEMO): 

JSR POSINIT 
JSR INIT 

LOOP LDA$C054 
LDA #$40 
STA HPAG 
JSR PROGRAMM 
JSR ASTA 
JSR GRAFIK 

LDA $0055 
LDA #$20 
STA HPAG 
JSR PROGRAMM 
JSR ASTA 
JSR GRAFIK 

CLO 

BCC LOOP 

Zunächst müssen alle Variablen gelöscht 
werden. Zu diesem Zweck wird POSINIT 
($85BB) aufgerufen, um die ASTA-Posi- 
tionstabelle zu löschen. Danach folgt die 
Initialisierungsroutine des Programms. 
Dort wird z.B. der Hintergrund eingeladen, 
der in alle Seiten kopiert wird, der Punkte¬ 
zähler wird auf Null gesetzt, die Anfangs¬ 
koordinaten der einzelen Objekte werden 
in die Positionstabelle geschrieben und 
die Grafik wird eingeschaltet. In der Haupt- 
schleife wird nacheinander das Hauptpro¬ 
gramm (PROGRAMM), ASTA ($8400) und 


GRAFIK aufgerufen: Das Hauptprogramm 
berechnet die neuen Positionen der Ob¬ 
jekte und ermittelt z.B. Punktgewinne. 
ASTA zeichnet die Objekte, und mit GRA¬ 
FIK kann der Punktestand angezeigt oder 
das Bild zusätzlich verändert werden. In 
der Schleife erfolgt auch die Umschaltung 
der zu zeigenden und neu zu zeichnenden 
Seiten. Dabei gibt HPAG ($00E6) die zu 
zeichnende Seite an ($20 = Page 1, $40 
= Page 2). Diese Umschaltung ist bewußt 
nicht in ASTA hineingenommen worden, 
um noch eine Veränderung des Bildes 
durch weitere Routinen nach dem Aufruf 
von ASTA zu ermöglichen. 


2. Der Sprite-Editor 

2.1. Programmaufbau 

Das Programm besteht aus zwei Teilen: 
das Hauptprogramm SPRITE.EDIT in Ap¬ 
plesoft und einer kleinen Assemblerrouti¬ 
ne SPRITE.EDIT.ASS mit einigen 
Shapes. Für die Abspeicherung des Spri¬ 
tes wird nicht ein Array, sondern ein abge¬ 
grenzter Speicherbereich benutzt, in dem 
mit PEEK und POKE die Punkte abgespei¬ 
chert werden. Dadurch wird weniger Spei¬ 
cherplatz benötigt als durch einen ent¬ 
sprechend großen Array. Außerdem ist es 
auch einfacher möglich, einige Berech¬ 
nungen durch ein Assemblerprogramm 
erledigen zu lassen. Beim Abbruch des 
Programms bleibt das eingegebene Sprite 
auch erhalten, wenn das Programm mit 
RUN neu gestartet wird. 

Um die Ausführungszeiten herabzuset¬ 
zen, kann das Programm einfach compi- 
liert werden. Für den TASC-Compiler muß 
nur der HIMEM-Befehl gelöscht und bei 
der Speicherverteilung die Startadresse 
für Variabein auf 29000 gesetzt werden. 
Bei anderen Compilern ist darauf zu ach¬ 
ten, daß der Bereich von 16384-29000 für 
die Grafik und das Datenfeld frei bleibt. 


2.2. Die Erstellung eines Sprites 

Wählen Sie mit „ 1 “ den Editor an. Es steht 
Ihnen ein 42 ^ 42 großes Feld zur Verfü¬ 
gung, innerhalb dessen Sie Ihr Sprite ge¬ 
stalten können. Den Cursor können Sie 
wie im Textmodus mit I, J, K, M bewegen. 
Wenn Sie gleichzeitig die CtrI-Taste drük- 
ken, wird die Position, an der sich der 
Cursor befindet, invertiert. Mit „F“ können 
Sie das Farbbit in einer Zeile invertieren. 
Durch Eingabe von „L“ wird das Sprite 
gelöscht, und mit „V“ kann es um ein Bit in 
jede Richtung verschoben werden. Als 
Hilfe können Sie durch Eingabe von „?“ 
eine Übersicht aller Editor-Kommandos 
abrufen. 


Neben dem großen Feld wird das Sprite in 
Orginalgröße gleich viermal dargestellt, 
damit alle möglichen Farbkombinationen 
gleichzeitig zu sehen sind. Links oben se¬ 
hen Sie das Sprite so, wie es normalerwei¬ 
se mit ASTA dargestellt wird. Wenn das 
Farbbit invertiert wird (MSKTD = $80), 
erscheint es wie links unten dargestellt. 
Die beiden rechts abgebildeten Sprites 
können Sie durch Verschieben um eine 
Stelle in X-Richtung erzeugen. 

Mit „ESC“ verläßt man den Editor. 

Das Programm bietet auch die Möglich¬ 
keit, ein so erstelltes Sprite abzuspeichern 
oder ein anderes Sprite von Diskette zu 
laden. 

2.3, Die Berechnung der Bitsprites 

Hauptaufgabe des Programms ist die Be¬ 
rechnung der Bitsprites. Es erzeugt jedoch 
nicht direkt die Bytes der Sprites, sondern 
liefert einen Assembler-Textfile, der erst 
von einem Assembler übersetzt werden 
muß. Diese auf den ersten Blick etwas 
umständliche Methode hat einige Vorteile. 
In den Adreßtabellen werden absolute 
Startadressen verlangt, deshalb ist das 
Verschieben des Sprites in den ge¬ 
wünschten Speicherbereich mit einen As¬ 
sembler leichter zu ereichen. Außerdem 
kann der Speicherplatz besser ausgefüllt 
werden, wenn man die Sprite-Tabellen 
zwischen Programmteilen unterbringen 
will. Durch kleine Änderungen kann das 
Programm an das Format der verschiede¬ 
nen Assembler leicht angepaßt werden. 

Bei der Berechnung der Sprite-Tabelle 
können Sie zwischen drei Möglichkeiten 
wählen: 

Normal - Es wird ein Sprite erzeugt, das 
aus 7 Bitsprites besteht. 

Normal (alle Farben) - Hier werden zwei 
Sprites erzeugt, wobei das zweite Sprite 
gegenüber dem ersten um einen Punkt 
verschoben ist. Jedoch werden dazu nur 8 
Bitsprites benötigt und nicht 2^7 Bitspri¬ 
tes wie bei der Benutzung von zwei nor¬ 
malen Sprites. Beim zweiten Sprite ist 
dem Label ein „S“ hinzugefügt. 
Einzel-Sprite - Wenn im voraus feststeht, 
daß ein Objekt nur in Y-Richtung bewegt 
wird, brauchen Sie nur ein Bitsprite. Wel¬ 
ches Bitsprite Sie benötigen, können Sie 
mit folgender Formel berechnen (X im Be¬ 
reich 0-1391): 

Bitsprite-Nummer = (X * 2 / 7 - INT (X ^ 
2 / 7 )) ^ 7 . 

Nachdem Sie die Art der Berechnung ge¬ 
wählt haben, folgen Fragen nach dem 
Filenamen und den im Assemblerfile zu 
verwendenden Labels. Die Größe des 
Sprites wird automatisch festgelegt. Beim 
Einzel-Sprite können Sie sie selbst 
wählen. 
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Achtung! Zusaisprogramm -für ApplelNorks 

DIESE ANZEIGE 


wurde vollständig mit AppleHorks gedruckt. Dazu 
benötigen Sie nur noch den DMP Chargerf der 
außerdem noch 20 weitere Zeichensätze für Sie 
bereit hält. 

C ftp I TALS 5 , Schmasch, Sc-K/reUr, 

ABnEorHtKJTMn, onspnexvz 

flTHEnS ZEIT 

Auch vom NoröStar und anderen Programmen 
können diese Zeichen benutzt werden. Sie können 
die Zeichen verändern» oder auch neue gestalten. 
Das Programm arbeitet mit dem ik //e (12Sk) oder 
ife //c und mit dem ik Imagewriter» auch FX SO» 
Panasonic» Okidata. 

Preis: 19S»- incl. MwSt. und ausführlichem 
Handbuch. JnfoWatt kostenlos, Versand gegen 
offene Rechnung möglich 

i qi 

Nottulner Landweg S1 
D-4400 Münster 

Tel.: 02534/ 7036 Telex: £:92 496 
auch bei Pandasoft und Intus erhältlich. 


ccp datcntcchnik 


640 KByte-Drives für den Apple //cü 

• 5V4- od. 3V 2 -ZOII-Format (Teac FD55/35-F) 

• FD55-F umschaltbar auf 35/40 Track 

• Anschluß an die externe Laufwerkbuchse 

• Durch Einbauplatine (kein Löten) 640 KByte im Direktzugriff 

• Einfache Anpassung für DOS 3.3, UCSD-Pascal und PRODOS 
durch menügeführten Patch 

• Anpassung von CP/M in Verbindung mit einer Z SO-Zusatzpiatine 
in Vorbereitung 

• anschlußfertig im Gehäuse. DM 1090,— 

Festplatten für Apple II (//e) 

• 5V4 Zoll-Format (Slimline) 

• Booten direkt von der Festplatte ln DOS 3.3, UCSD-Pascal, 
PRODOS und CP/M 2.2 / 3.0 

• Gemischtbetr. mit 35/40/80/160 Track-Drives 

• Copy- und Install-Programme im Lieferumfang 

• Umfangreiches Manual 

• z. B. 10 MB incl. Netzteil u. Contr., 

anschlußfertig an Ihren Apple. DM 3450,- 

640 KByte-Drives für Apple II (//e) 

• 5V4- od, 3 V 2 -Z 0 II-Format (Teac FD55/35-F) 

• FD55-F umschaltbar auf 40 Track (Apple kompatible) 

• Installationssoftware für DOS 3.3, UCSD-Pascal, CP/M 2.2, 
CP/M 2.23 (60K), PRODOS, AP22, ALS CP/M+ 

• Umfangreiches Handbuch 

• Anschlußfertige Auslieferung Incl. Contr. und 2 Drives 

• Diskstation 5511 (2 Teac FD55-F, 1.2 MB) . . . DM 1540,- 

• Diskstation 3511 (2 Teac FD35-F, 1.2 MB) . . . DM 1598,- 

80 Zeichen + 64 K für Appie //e 

• und jetzt hinsetzen. DM 13.8,- 


HERDERSTR. 12 



2000 HAMBURG 76 
^ 040/2^ 


ZUSATZ-KARTEN: 

V-24-Schnm3toUo.m.- Z-SO-Koita. 98,- 

SO^Zokhen^Karta m.Softswitch 23ä,- 16 K-L<xnguogo-Karte . 98,^ 

Cantronics-Korta von €psori für Graphik .... 210,- für Text, , , , 145,- 

Centrenlcs-Sdinlttstalle für 2 Drucker gleichzeitig .. 129,- 

rommarincLSoftware...., 198,- 


tprommer incl. Software. 

Super-Eprommer 

belegt keinen Slot, incL Software fii 


Software für 2508-27128 


m- 


Floppy-Controller 

FDC4fur alle Laufwerke ".169,- Bausatz Wie links ............ 159,- 

LeerpEatine wie oben Inci. Prom u. Eprom * 90,- 

Dnick Spooler mlH6,32 Otter 64 K9 .. . Preis auf Anfrage 


Erphi-Controlter. 298,- 


Drucker-Spooler 64 kB^ 

fertig aufgebauE Incl, Neizffeil u. Gehäuse.. 


JoySHckDeiuxe .. S9,- NetitellSA 149,- 

(i^äusa fürl 514"'Slimline Laufwerk ......... 39,- 

Gohäuse für 2 514 ’ Slimline Laufwerke mit Platz für ein Netzteil .1S9,- 

Gehäusa für 2 Slimline Laufwerke mit Platz für ein Netzteil 79,- 

IBM^’-Gehäusa.*.*.. *. 229,* 

Floppy'Kobel 34pol. für 2 Laufwerke mit Shtjgart-Bü$.. * 40,- 


Preh Commander Keyboards 

Wir bieten ihnen die Preh-Ouolltät auch für Apple. AK SS Spez mit Gehäuse^ An¬ 
sohl Kabel, Zehner-Tastenfeld, dt, Zdchensatz ,SondertBStanfür QOQ 

Ctrl-Codes und Rochenfunktionen. 

f’reh COmman dar KeybaaFid, frei programmierbar COO 

bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen .,, * .nur 3 

I _i r i r -. V ' 'Jl. 


ciPnatsattEinniiniRaiit 

qQanamaapnnRDnM 
eiR n a R D R CI tssR ffmü 






TEAC SVi" Laufwerk FD 35 Fns - 

Speicherkapazität 1 MB, (formatiert 640 KB) jetzt für nur. ^ f 



TEAC FD SS AV 1x40 Track .... 425,- TEAC fO SS BV 2 x 40 Track .... 460,- 
TEAC FD 55 EV Ix 30 Track ,,,,445.- TEAC FD S5 fV 2 x 80 Track ..,.490,- 

SONY 316" Laufwerk ....nur 799,- 

Appla'^'-kompatibles Laufwerk incl. Gehäuse + Kabel 599,- 

320 KB Laufwerk für llc.948,- 

640 KB Laufwerk für llc.1088,- 


EPSON DRUCKER 

EPSON FX 00 ......... 1670,- EPSON FX 100 ,. 

EPSON RX 80 .1079,- EPSON RX 80 FT 


Die Microfloppy mitZukunfh 


Speicherkapazität: 2x1 MByte formatiart; 2 x 
640 kByle. Anschlußferffg mit PROM-residenter 
Patchsoftware für CP/M 2,2, Apple OOS 3.3, Dt- 
versiDOS 2-C, 4-C (DO MOVER). Apple Pascal 
1.1, Pascal 1.2j Pro-DOS 1.0.1, 4 60Q 

1.1,1.1.1 zum Preis von I3y0#" 

Low PowarVarsion . 1740,- 


10 MB Winchester 

mit Software für DOS 3.3. CP/M 2.20, Paecal, Pra-DOS, 
incL Controler und Gehäuse 



3990.- 


Sonderangebot 

pistar Laufwerk für II + Ile, 

incL Kabel u. Gehäuse .... jetzt nur 9# 70^ 

Preise indüsive gesetzlicher Mehrwertsteuer. 


Oesorrit-Preisllste anfordern! 


UEDING electronics 


Holtewiese 2 
5750 Menden 1 


DFU 02373/66877 
Tel. 02373/63159 
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2.4 Beispiel 


Aufbau des Sprites TEST 


Wenn alle Sprites berechnet sind, wird 
nach folgendem Schema der Sourcecode 
zusammengefügt (Merlin-Assembler): 

ORG $8300 
STAB DA $0000 
DASPRITE1 
DASPRITE2 
DA SPRITES 

SAV STAB 


TEST 

DA 

BITSPRITEI 


DA 

BITSPRITE? 

BITSPRITEI 

DFB 

2,3 


DFB 

12?,? 


DFB 

2,12 


DFB 

127,? 

BITSPRITE7 

DFB 

3,3 


DFB 

64,127,3 


DFB 

0.1,6 


DFB 

64,127,3 


;Länge (X), Breite (Y) 


ORG $9000 :(Beispiel) 

PUTSPRITE1 

PUTSPRITE2 

PUTSPRITE3 

SAV SPRITES 

Zunächst werden in der Sprite-Tabelle die 
Startadressen der einzelnen Sprites ange¬ 
geben, dann folgen erst die eigentlichen 
Sprites, die in jeden freien Bereich gelegt 
werden können. Wenn der PUT-Befehl 
nicht in Ihrem Assembler vorhanden ist, 
müssen Sie alle Files nacheinander in den 
Speicher laden und dann assemblieren. 

Quellenverzeichnis 

(1) Sprite-Designer für Apple II, Home¬ 
computer, 12/83, S.34. 

(2) Apple-Il-Grafik-Organlsation, c’t, 6/84, 
S.40. 

(3) Grafik-Tuning, Teil 3, c’t, 8/84, S.77. 


Bit- 

Sprite 

Bytel 

Byte! 

Byte 3 

Bytesl Dezimal) 


1 2 3 5 6 7 8 

^ 2 3 U S e 1 B 

1 2 3 5 6 7 8 



• •••••• 

• • • 


127,7 

1 

• 

• • 


2,12 





127,7 





126,15 

2 

• 

• • 


U,2U 





126,15 


ab dem 5, Bitsprite sind^ 

3 Bytes je Zeile erforderlich 






• 

96,127,1 

6 

• 


• • 

6^,0,3 

96,127,1 







• 



6^,127,3 

7 


• 

• • 

0,1,6 


• 



64,127,3 


Beispie! eines Sprites mit entsprechenden Bitsprites. 


ASTA 










30 












31 

* 



* 











32 

* 

A 

STA 

* 

BSAVE ASTA, 

A$8400, 

L$047A 








33 

* HPAG 

- Hi-Byte, HIRES- 

-Page * 











34 

* PTAB 

- Positionstabelle ^ 











35 

* 



* 


1 






36 



2 

* 








37 






3 

* ASTA 

- Animation von Sprites * 





38 


Sprites 

löschen 



4 

* 

mit 

Tabellenhilfe * 





39 

* 





5 

* 



* 


8400 

A9 

lE 

40 

ASTA 

LDA 

#ANZAHL 



6 

* 

Bernd 

Klawonn 

* 


8402 

85 

19 

41 


STA 

POS 



7 

* 



* 


8404 

C6 

19 

42 

ASTAl 

DEC 

POS 

;Pos,-Zähler - 1 


8 

* 



* 


8406 

A4 

19 

43 


LDY 

POS 

;POS als Ind. laden 


9 






8408 

B9 

E0 81 

44 


LDA 

SPRTL,Y 

;Sprite = 0? 


10 






840B 

F0 

03 

45 


BEQ 

ASTA2 

; wenn ja, weiter 


11 


ORG 

$8400 



840D 

20 

Bl 84 

46 


JSR 

SLOESCH 

;Sprite löschen 


12 

ANZAHL 

= 

30 i 

;Tab. Sprite-Anzahl 


8410 

A5 

19 

47 

ASTA2 

LDA 

POS 

;P0S <> 0? 


13 

POS 

EQU 

$19 ; 

;Pos, in der Tab. 


8412 

D0 

F0 

48 


BNE 

ASTAl 

;wenn ja, weiter 


14 

XBYTE 

EQU 

$1A 






49 

* 





15 

YWERT 

EQU 

$1C 






50 

* 

Sprites 

zeichnen 



16 

STLO 

EQU 

$1D 






51 

* 





17 

STHI 

EQU 

STLO+1 



8414 

: A0 

00 

52 


LDY 

#$00 



18 

XLAE 

EQU 

$1F 

Länge des Sprites 


8416 

: 84 

19 

53 


STY 

POS 

jPOS auf 0 setzen 


19 

XCOUNT 

EQU 

$08 

X-Zähler 


8418 

: B9 

F0 80 

54 

ASTA3 

LDA 

SPRTZ.Y 

;POS-Tabelle 


20 

YCOUNT 

EQU 

$09 

Y-Zähler 


841B 

: 99 

E0 81 

55 


STA 

SPRTL,Y 

;aktualisieren 


21 

HPAG 

EQU 

$E6 

Grafik-Page (Hi) 


841E 

: B9 

00 80 

56 


LDA 

SPRTD,Y 



22 

SCRLO 

EQU 

$06 

Grafik-Page-Adr, 


8421 

: 99 

F0 80 

57 


STA 

SPRTZ,Y 



23 

SCRHI 

EQU 

SCRLO+1 



8424 

: B9 

0E 81 

58 


LDA 

XWRTZ,Y 



24 

PSEUDO 

EQU 

SFFFF 



8427 

: 99 

FE 81 

59 


STA 

XWRTL,Y 



25 

BUFFLO 

EQU 

$E0 

lAdresse d. Puffers 


842A 

: B9 

lE 80 

60 


LDA 

XWRTD,Y 



26 

BUFFHI 

EQU 

BUFFLO+1 i 

;(ab $6000) 


842D 

: 99 

0E 81 

61 


STA 

XWRTZ,Y 



27 

FMASK 

EQU 

$E2 

;Farbmaske (Bit 8) 


8430 

: B9 

2C 81 

62 


LDA 

XBYTZ.Y 



28 

YMAX 

EQU 

$E3 



8433 

: 99 

IC 82 

63 


STA 

XBYTL,Y 



29 






8436 

; B9 

30 80 

64 


LDA 

XBYTD,Y 
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UNIVERSAL 

KEYBOARDS 

Modell AN95FE ... DM 448- ohne MwSt. {DM 510,72 incl. MwSt.) 
Die KEYBOARDS SPEZIELL angepaßt für den APPLE Ile 
Händleranfragen erwünscht 




• FLEXIBEL 

• PROFESSIONELL 

• ERGONOMISCH 

• KOMPLETT 

• KOMPAKT + FLACH 


— Jede Taste frei im EPROM programmierbar in 
bis zu 8 Ebenen im mitgelieferten EPROM 

— Für Anwender mit gehobenen Ansprüchen 

— Nach DIN ULTRAFLACH gestaltetes stabiles 
Gehäuse 

— Tastatur, Gehäuse und Kabel fertig montiert 
und getestet. Durch SpeziaLKabel und Spezial- 
EPROM sofort einsteckfertig, 

— Durch Einsatz von „SIEMENS" Flachtasten¬ 
modulen 



gesetlschaff für 
Computersteuerungen 
und datentechnik mbH 


D-4930 Detmold ★ Alter Mühlenweg 5 
Telefon 0 52 31/41 76 ★ Telex 9 35 660 acs d 



MHGA*BOARD schafft die Verbindung 
Megabytes uhtet vüer Betriebs^ysteimen 


MEGA-BOARD 

der Harddiskcontroiler 
für Apple® - Bus 




* t ti 


- Alle DfskParameter emstetlbar. 

- Öetrrebssyätembfreiche frei; wählbar. 

- Booten von der Harddisl(. 

- Betriebssysteme DOS. CP/M PASCAL, 
Pro DOS menuegestejLi©|?kf^im Zügrdf. 

Controller, Kabel, tind Manual. 

FRANK & BRITTfNG 

ElftMronlk Et^lWicklung* 

Lupgeatr PegUßcJl 11JJÖ. 75gg Furil 
Telefon- 07J?51 / t03ü'CiaT69. 

» Telex 703245? tub ü ] 


eistungsumfang: 


Lieferurnfang:; 

Ein Produkt von! 


Die HarddiskcantroLler-Spezfallsten 


MICROMINT 

V/IAltiüffer 

MICROMINT 16 
XT-IBM comp. 

256 K, 8 Slots, Tastatur, Laufwerk 
320 K, Contr, Graphic-Color-Card, 

15 A Netzteil nur 

2 . 111 ; 

Prospekte anfordern! 

Händlerpreise erfragen. 

Unsere aktuellen Preise sind meist niedriger. Über Anrufbeantworter 
Ruf 02104/394 71 erfahren Sie’s vom Tiefstpreisgarant... 

IBM-PREISHAMMER bei 1a QUALITÄT 

inci. 14 Tage Rückgaberecht 



Fertlgplatme XT-256 K/Boolrom. .. 529,- 

dito Megabord 640.... . . 688,- 

Grafic-Color-Card. 199,- 

Controller 2 LW. 158,- 

384 K Multifunktionscard (256 Kon Board) . .... 459,- 

Multifunctionscard I/O.. . « . 300,- 

Winchester-Controller 0-140 MB 1 AX. 799,- 

Winchster-Harddisc 20 MB formatiert . 1.888,- 

Tastatur 1a, kapazitiv, programmierbar . 229,- 

Mehrzweckklappgehäuse IBM-Design 132,- 

Netzteil20A. 229,- 

Monitorfüße schwenkbar 1a. 29-- 

APPLE 64 K/2 x CPU kompl. It. Abb . 988,- 


APPLE-SUPER-SONDER-PREISE - erfragen 
TROPHY OF QUALITY = MICROMINT BOOTROM 


Generalimporteur MICROMINT Computer GmbH ^ 

Hochdahler Straße 151,4006 Erkrath 2 


® 02104/330241 



Darauf alle Apple//-Besitzer schon lange gewartet! 

Jetzt bieibt dfb Ffo’ppykiste zu. 

Einfach Rechner elnschaiten, 

vier Betriebssystenne warten auf Ihr Kommando. Welcher 
Pröfirechner Harm das schon? 

DM 4.660.— mbf ^iVtfST komplett bei Ihrem örtlichen 


FRANK &BRITTING 

Eiektronik Eniwicklungs GmbH 

Langestr 4 Postfach 1129 7529 Forst 
Telefon 07251 /103068-69 
Telex 7822452 fub d 


Die HarddiskcontroHer-Spezialisten 



































84FB; 

B9 9B 86 

157 

SL0ESCH2 

LDA 

GADRHI,y 


84FE: 

05 E6 

158 


ORA 

HPAG ; 

HGR-Page (Hi) 

8500; 

85 07 

159 


STA 

SCRHI ; 

abspeichern 

8502: 

09 60 

160 


ORA 

+%01100000 ; 

Hintergrund (Hi) 

8504: 

85 El 

161 


STA 

BUFFHI ;abspeich. ($6000) 

8506: 

B9 DB 85 

162 


LDA 

GADRLO.Y ; 

Lo-Byte holen 

8509: 

85 06 

163 


STA 

SCRLO :und 

850B: 

85 E0 

164 


STA 

BUFFLO ; 

abspeichern 



165 

* 




850D: 

A4 lA 

166 


LDY 

XBYTE 


850F; 

C0 28 

167 

SL0ESCH3 

CPY 

#$28 


8511: 

B0 04 

168 


BCS 

SL0ESCH4 




169 





8513: 

Bl E0 

170 


LDA 

(BUFFLO),Y ; 

Hintergrundpuffer 

8515: 

91 06 

171 


STA 

(SCRLO},Y ; 

Bildbyte 



172 





8517; 

E8 

173 

SL0ESCH4 

INX 



8518: 

C8 

174 


INY 



8519: 

C6 08 

175 


DEC 

XCOUNT ;Spaltenzähler 

85IB: 

D0 F2 

176 


BNE 

SL0ESCH3 ;Zeile fertig? 

851D: 

E6 IC 

177 


INC 

YWERT 


851F: 

C6 09 

178 


DEC 

YCOUNT ; 

Zeilenzähler 

8521: 

D0 CA 

179 


BNE 

SLOESCHl ; 

Sprite fertig? 

8523; 

60 

180 


RTS 





181 

* 






182 

*- 




8524; 

B9 00 80 

183 

SZEICH 

LDA 

SPRTD,Y ; 

SPR-Nummer laden 

8527: 

0A 

184 


ASL 


A = Spritenummer 

8528: 

A8 

185 


TAY 



8529: 

E9 00 83 

186 


LDA 

STAB,Y : 

Sprite-Adresse 

852C: 

85 ID 

187 


STA 

STLO ; 

Lo-Byte 

852E: 

C8 

188 


INY 



852F: 

B9 00 83 

189 


LDA 

STAB,Y 


8532: 

85 lE 

190 


STA 

STHI : 

Hi-Byte 



191 

* 




8534: 

A4 19 

192 


LDY 

POS ;Tabellen-Position 

8536: 

B9 5A 80 

193 


LDA 

XBITD.Y ; 

XBI,Y - Bitsprite 

8539: 

A8 

194 


TAY 



853A: 

Bl ID 

195 


LDA 

(STLO),Y ; 

Bitsprite-Adresse 

853C: 

AA 

196 


TAX 

;Lo-Byte 

853D; 

C8 

197 


INY 



853E: 

Bl ID 

198 


LDA 

(STLO),Y ; 

Hi-Byte 

8540: 

85 lE 

199 


STA 

STHI 


8542; 

86 ID 

200 


STX 

STLO 




201 

* 




8544: 

8D 8F 85 

202 


STA 

MOD+2 ;PSEUDO durch 

8547: 

8E 8E 85 

203 


STX 

MOD+1 ; 

Sprite-Ad. ersetz. 



204 

* 




a54A: 

A0 00 

205 


LDY 

#$00 


854C: 

Bl ID 

206 


LDA 

(STLO).Y ; 

Länge des Sprites 

854E; 

85 IF 

207 


STA 

XLAE 


8550: 

C8 

208 


INY 



8551: 

Bl ID 

209 


LDA 

(STLO),Y ; 

Breite des Sprites 

8553: 

: 85 09 

210 


STA 

YCOUNT 




211 

¥ 




8555 

A4 19 

212 


LDY 

POS 


8557 

B9 3C 80 

213 


LDA 

XBYTD,Y ; 

XBY,Y - X-Byte 

855A 

85 lA 

214 


STA 

XBYTE 


855C 

B9 78 80 

215 


LDA 

YWRTD,Y ; 

YWR,Y - Y-Wert 

855F 

85 IC 

216 


STA 

YWERT 


8561 

B9 96 80 

217 


LDA 

YMATD.Y ; 

YMAX des Sprites 

8564 

85 E3 

218 


STA 

YMAX 




219 

* 




8566 

B9 D2 80 

220 


LDA 

MSKTD,Y ; 

Bitmaske für Farbe 

8569 

85 E2 

221 


STA 

FMASK ; 

; abspeichern 

856B 

A2 02 

222 


LDX 

#$02 ; 

:Index für Sprite 



223 




;auf 1- Byte 

856D 

: A5 IF 

224 

SZEICHl 

LDA 

XLAE ;Schleife für Y 

856F 

: 85 08 

225 


STA 

XCOUNT 


8571 

; A4 IC 

226 


LDY 

YWERT 


8573 

: C4 E3 

227 


CPY 

YMAX ; 

;untere Bildgrenze 

8575 

: 90 04 

228 


BCC 

SZEICH2 


8577 

: A0 29 

229 


LDY 

#$29 


8579 

: B0 ID 

230 


BCS 

SZEICH4 


857B 

: B9 9B 86 

231 

SZEICH2 

LDA 

GADRHI,Y 


857E 

: 05 E6 

232 


ORA 

HPAG ; 

:Bildschirmadr* 

8580 

: 85 07 

233 


STA 

SCRHI 

:wird ermittelt 



234 

* 




8582 

: B9 DB 85 

235 


LDA 

GADRLO,Y 


8585 

: 85 06 

236 


STA 

SCRLO 




237 

* 




8587 

A4 lA 

238 


LDY 

XBYTE 


8589 

C0 28 

239 

SZEICH3 

CPY 

#$28 


858B 

B0 0B 

240 


BCS 

SZEICH4 




241 

* 




858D 

BD FF FF 

242 

MOD 

LDA 

PSEUDO,X 

Bitsprite-Adresse 

8590 

11 06 

243 

PATCH 

ORA 

(SCRLO),Y 

Hintergrund lesen 

8592 

29 7F 

244 


AND 

#$7F 

Farbbit löschen 

8594 

45 E2 

245 


EOR 

FMASK 

Farbmaske f. Bit 7 

8596 

91 06 

246 


STA 

(SCRLO) ,Y 

Bildbyte zurück 



247 

* 




8598 

: E8 

248 

SZEICH4 

INX 




8439: 

99 2C 81 

65 


STA 

XBYTZ,Y 


843 C: 

B9 4A 81 

66 


LDA 

XBITZ,Y 


843F: 

99 3A 82 

67 


STA 

XBITL,Y 


8442: 

B9 5A 80 

68 


LDA 

XBITD,Y 


8445: 

99 4A 81 

69 


STA 

XBITZ,Y 


8448: 

B9 68 81 

70 


LDA 

YWRTZ,Y 


844B: 

99 58 82 

71 


STA 

YWRTL,Y 


844E: 

B9 78 80 

72 


LDA 

YWRTD,Y 


8451: 

99 68 81 

73 


STA 

YWRTZ,Y 


8454: 

B9 86 81 

74 


LDA 

YMATZ,Y 


8457: 

99 76 82 

75 


STA 

YMATL,Y 


845A: 

B9 96 80 

76 


LDA 

YMATD,Y 


845D: 

99 86 81 

77 


STA 

YMATZ,Y 


8460: 

B9 A4 81 

78 


LDA 

DRWTZ,Y 


8463: 

99 94 82 

79 


STA 

DRWTL,Y 


8466; 

B9 B4 80 

80 


LDA 

DRWTD,Y 


8469: 

99 A4 81 

81 


STA 

DRWTZ,Y 


846C: 

B9 C2 81 

82 


LDA 

MSKTZ,Y 


846F: 

99 B2 82 

83 


STA 

MSKTL,Y 


8472; 

B9 D2 80 

84 


LDA 

MSKTD,V 


8475: 

99 C2 81 

85 


STA 

MSKTZ,Y 




86 

* 




8478: 

B9 00 80 

87 


LDA 

SPRTD,Y 

;Sprite = 0? 

847B: 

F0 28 

88 


BEQ 

ASTA5 

;wenn ja, weiter 

847D; 

B9 lE 80 

89 


LDA 

XWRTD,Y 

;Lade XWerRt 

8480: 

AA 

90 


TAX 



8481; 

BD E7 87 

91 


LDA 

BYTAB,X 

:ermittel XBYTE 

8484: 

99 3C 80 

92 


STA 

XBYTD,Y 


8487: 

99 2C 81 

93 


STA 

XBYTZ,Y 


848A: 

BD 5B 87 

94 


LDA 

BITAB,X 

;und XBIT 

848D: 

99 5A 80 

95 


STA 

XBITD,Y 


8490; 

99 4A 81 

96 


STA 

XBITZ,Y 




97 

* 




8493: 

B9 B4 80 

98 


LDA 

DRWTD,Y 

:8 Bits gesetzt? 

8496: 

10 0A 

99 


BPL 

ASTA4 

;nein, dann weiter 

8498: 

A9 00 

100 


LDA 

#$00 

;Sprite später 

849A: 

99 F0 80 

101 


STA 

SPRTZ,Y 

;nicht löschen 

849D: 

20 A5 85 

102 


JSR 

UEBERZ 

;Sprite zeichnen 

84A0: 

D0 03 

103 


BNE 

ASTA5 




104 

* 




84A2: 

20 24 85 

105 

ASTA4 

JSR 

SZEICH 

;Sprite zeichnen 

84A5; 

E6 19 

106 

ASTA5 

INC 

POS 

;POS-Zähler erhöhen 

84A7: 

A4 19 

107 


LDY 

POS 


84A9: 

C0 lE 

108 


CPY 

#ANZAHL 

;Letzte Position? 

84AB: 

F0 03 

109 


BEQ 

ASTA6 

;wenn ja, -> fertig 

84AD: 

4C 18 84 

110 


JMP 

ASTA3 


84B0; 

60 

111 

ASTA6 

RTS 





112 







113 







114 

* 

Unterprogramme 




115 

* 




84B1: 

B9 E0 81 

116 

SLOESCH 

LDA 

SPRTL,Y 

;SPR-Nummer laden 

84B4; 

0A 

117 


ASL 


;A = Sprite-Nummer 

84B5: 

A8 

118 


TAY 



84B6: 

B9 00 83 

119 


LDA 

STAB,Y 

;Sprite-Ad- laden 

84B9: 

85 ID 

120 


STA 

STLO 

;Lo-Byte 

84BB: 

C8 

121 


INY 



84BC: 

B9 00 83 

122 


LDA 

STAB,Y 


84BF: 

85 lE 

123 


STA 

STHI 

;Hi-Byte 



124 

* 




84C1: 

; A4 19 

125 


LDY 

POS 

:Tab,-Pos. laden 

84C3: 

: B9 3A 82 

126 


LDA 

XBITL,Y 

;XBI,Y - Bitsprite 

84C6: 

: A8 

127 


TAY 



84C7: 

: Bl ID 

128 


LDA 

(STLO),Y 

;Bitsprite-Adresse 

84C9: 

: AA 

129 


TAX 


;Lo-Byte 

84CA: 

: C8 

130 


INY 



84CB 

: Bl ID 

131 


LDA 

(STLO),Y 

;Hi-Byte 

84CD 

: 85 lE 

132 


STA 

STHI 


84CF 

: 86 ID 

133 


STX 

STLO 




134 

* 




84D1 

: A0 00 

135 


LDY 

#$00 


84D3 

: Bl ID 

136 


LDA 

(STLO),Y 

;Länge des Sprites 

84D5 

: 85 IF 

137 


STA 

XLAE 


84D7 

: C8 

138 


INY 



84D8 

: Bl ID 

139 


LDA 

(STLO),Y 

;Breite des Sprites 

84DA 

: 85 09 

140 


STA 

YCOUNT 




141 

* 




84DC 

: A4 19 

142 


LDY 

POS 


, 84DE 

: B9 IC 82 

143 


LDA 

XBYTL,Y 

;XBY,Y - X-Byte 

84E1 

: 85 lA 

144 


STA 

XBYTE 


84E3 

: B9 58 82 

145 


LDA 

YWRTL.Y 

;YWR,Y - Y-Wert 

84E6 

: 85 IC 

146 


STA 

YWERT 


84E8 

: B9 76 82 

147 


LDA 

YMATL,Y 

;YMAX des Sprites 

84EB 

: 85 E3 

148 


STA 

YMAX 




149 





84ED 

: A5 IF 

150 

SLOESCHl LDA 

XLAE 

;Schleife für Y 

84EF 

: 85 08 

151 


STA 

XCOUNT 


84F1 

: A4 IC 

152 


LDY 

YWERT 


84F3 

: C4 E3 

153 


CPY 

YMAX 

;untere Bildgrenze 

84F5 

: 90 04 

154 


BCC 

SL0ESCH2 


' 84F7 

: A0 29 

155 


LDY 

#$29 


84F9 

: B0 IC 

156 


BCS 

SLOESCH4 
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Apple II, Ile 


BO-Zeichen-Karte 

mit Sorftswitch, neue 
Vers, m. gest. scharf. Bild 




Dlsk^tnlerfaca 


Coitlronics-i n tarl. m. Katiei 61, 


Spaach-Karta 


CtDDk-Karte 


RS^232-Karte 


Super-Serlal-Karte 


Eprommflr(*,a, 16 K) 


Komp 2E 797,- 

Appie 2E kompatible, Rechner 
64 K im 2E-Design, ohne Firmware 


lES-K’RAM-Karta 


ISe^Ke^RAM^Kano 


Wüd-Karta Bu^ + eaR-Rane 

[Knacki öeschutrie Programme) für 2E kompatible 

Hflndtoranfragen erwilnschtl Apple-Info 1,- DM (Porto) 


At>PLE 


Disk Controll 


'KL-2020 DU 129, 
'KL-2050 DM ab 198, 


APPLE 


/orbehalten 


sferbedingunc 


■DM 24,50 
DM 33.— 
DM 29,90 
DM 66.— 
DM 99 — 


muß Irei zuruckge: 


APPLE - DISKETTEN LAUFWERKE 

Original Disk II m Controller i DOS 3 3 + Hdbuch 
Original Disk II (2 Laulwerk) 

Duo-Disk Slalion Slirnlfne.2 x 143KB Chinon 
Siemens Disk-Laulw., 143KB. m Kabel + Gehäuse 
Abor-Disk-Laufw , Slimline, 143KB, m Kab + Geh 
Chmon Slimline, 143KB, Superleise, m Kab +Geh 
Teac55F. 1 MB unf Kapazität.Shugartbus 
Teac 55F. kpl.-in Gehäuse. 40/80 Track. 1MByte 
anschlußlertig, mit Umschallung 40/80 + Kabel 
Zweillaufwerk lür Apple II C, 143 KB. mit Kabel 
APPLE - INTERFACES + MAINBOARDS 
Disk Controller f. 2 Original o. kompat, Drives 
Super-Controller I 2x Teac 55F, mit Software 
eOZeich-Karte mit 64K RAM + Soltsw t Ile 
80 Zeich-Karle II. m Soflswilch, 2 Zeichensälze 
16K RAM Erweiterung für II und kompatible 
Z 80A Interface Karte für CPM 2 2 
Z 80B Interface Karte für CPM 3 0, m 64K RAM 
Printer-Grafik Interlace, Epson kompatible 
Centronic-Paralell Text-Interface Karte 
Printer-Grafik Interlace, NEC/ITOH kompatibel 
Anschluß Kabel I Paralell + Grafik Interlace 
Buffer Grafik-fnferface. benutzbar für Drucker 
Epson/Nec/floh/Okidafa u andere m 32K Buffer 
Buffer Interface wie vor aber mil 64K Buller 
Anschluß Kabel I Bufler Interlace Karle 
232C Serielle Interface Karte 
Super Serielle Inlertace Karte. Fullduplex 
Sprach (Speech) Karte I Sprachwiedergabe 
6522 Paralell Interlace Karle 
Clock Karte (Datum/Uhrzeit) Ein/Ausgabe 
Eprom Writer Karte (2716 ■ 2764) 

IEEE-488lnlerface Karte 
Logo-Karte mit Diskette und Handbuch 
Musik Karle m Diskette und Handbuch 
PAL Color Interface Karte (UHF + Video) 

RGB Interface Karte (f Apple II + 11+) 

Wild Karte (kopiert über RAM-Bereich) 

128K RAM Erweiterungs Karte m Patchsoftware 
256K RAM Erweiterungs Karle m Patchsottware 
6809 Prozessor Exell-9 Interlacekarte 
IC-Tester Interlace Karte (RAMS/TTL 54/74) 
Hauptplatine 4eK, o Firmware Eproms. 8 Slots 
Hauptplatine 64K, wie vor 
APPLE - LEERPLATINEN 

Leerplalmen der obigen Interface Karten sind alle ir 
m, Besluck-Auldruck + Best,-Plan lieferbar 
Leerpialinen mit der Kennzeichnung 
Leerplatinen mit der Kennzeichnung 
Leerplatinen mit der Kennzeichnung 
Experimentier Platine, (ur Apple Slot EX300 
Leerplaline Motherboard. 48K. rnil Best -AuldrucK- 
Leerplaline Motherboard 64K. mil 6502 + Z80 


1in% Appht'twnplilitall 
bei Ve rwe<i4tf ivfi di ■ 
Mipl H-■ P ■ I rk«b I vgrt I ■ nt», 


6 Mon. Garantie 


Reparaturservice 


APPLE -TASTATUREN+LEERGEHÄUSE + NETZTEILE- APPLE 

Standard Einbau-Tastatur, ASCII, treibel. 9 I asten. 

Doppelbelg. aller Tasten, Groß+Klemschr Nr N26 DM 139,— 
Tastatur wie vor. jedoch mit 15er Block Nr.N67 DM 178,— 

Tastatur Nr N67, mitsep Gehäuse, kpl, m Kabel DM 249,— 

Separate Tastatur IBM-Look, anschlußferlig mit 
Kabel,Dopp belegt Tasten, frei prog Funkt Tasten DM 298,— 
Seperale Tastatur, Eprom progr -bar. Cursorblock 


LeergehauseStandard.passendf TastalurNr N2( 
dlo wie vor, jedoch passend für 15er Tasl N67 
Leergehause wie Mewa 9000, für Einbau von zwe 
Slimline-Laulwerken + Tastaturanschluß, Plastic 
Leergehause wie vor, jedoch in Melall-Ausfuhrun 
Schaltnelzteile lur APPLE u kompaiible Rechner 
+ 5V/5 A-5V;0,5A ( 12V/2.5A -12V/0,5a N74 


Artnla lla* umtiuciciutur 

UüdipiIhtJlw ■ ■ ■■ ■' * 

mii 

128 K.. DM 898,- 

2],n;^li|'f1itlt fd» IlH 

ftad« ÜM DO,- 

~ M-KHAU PrfttA A AttllHg« ^ 

Computer-Artikel Nachnahmeversand unirei, Zwis 
Angebote Ireibleibend unter Anerkennung unseri 
Warenzeichen der Fa Apple-Computer lnc_ Kalifc 
werden ‘IBM’ ist eingetragenes Warenzeichen de 


APPLE - ORIGINAL + KOMPATIBLE - COMPUTER - APPLE 

APPLE Ile, 64KRAM.Ascii-Taslat + UHF-Modul DM 1998.— 
APPLE Ile, Emsliegspakel ■- Computer 64KRAM, 

I Philips-Monitor Iß Mhz grün + Siemens F122 - 
Laulwerk 143K m, Controller f-Lerndisketle DM 2998,— 

APPLE II C, 128 KRAM, ASCII Tastatur DM 2795,— 

APPLE II C, wie vor, jedoch deutsche Tastatur DM 2998,— 

MACINTOSH System kompletl m Mouse + Tastatur 
+ Macwrite/Macpainl, Syslemguide-Disketle DM 5995,— 

MEWA-48K. Apple kompat Netzt 5Amp, Tastatur 
mit Dopp-Belegung + 10 frei Prog Tasten mit 
UHE-Mod, ohne Eirmware Eproms, DM 69B,— 

MEWA-64K wie vor jedoch mil 15er Block DM 728,— 

MEWA 9000er Serie mit seper Tastat DIN o ASCII 
m, dopp belegt Funkl-Tasten, Cursorbl. + 15er 
Block Netzt 5 Amp,, Gehäuse für 2x Slimline- 
Laufwerke UHF-Modulalor, o. Firmw -Proms 
f12KROM),48KRAM DM 998,— 

AM «94 JwtOch VK tUM DM' 

WA {fW'BA'C tlniti4gilMiii>n, -a^vai , jirdccit 
mil I OMi qri«! fBogt».« .CäxUr < Atuniipr. 

dlü <kiAM* hir HtWA IViirlf feditnir, l}U 
« iVlATAnt' UNO TmUHAD . q^^UCKEn - 
!i(’i k-t JfirtUi*. tiiriMn hijnMiyi voUpnUk^ UM 

^,|0:x-,i,u.nn«tp Inr^djaitlor OM S».'- 

SflEEOt OM l».— 

Ojj IWN11QX. Htu ttHI InMltp . t» *«3 MAf- UM 

OtiUir^M^iSiirif IDKt«dfichl)in37&rTiinPApi*4lH 0 mIIS9-^^ 

tf Oh H. Uh il wnrlbiiilaliRti nn Diriün OmMÜ — 

JllHl «11)0 tyfkOOJ iitrtf 3 V*. TA TvOfftVfcfhtt ÜM — 


COMPUTER CENTER CONEX 

5650 SOLINGEN 11 Postfach 11 02 06 
Teleton (0212) 7 54 49 


ERICH-WILLI MEYER 

6343 FROHNHAUSEN Postfach ^ 
Telefon (0 27 71) 3 50 71 


IBM "■ KOMPATIBEL . IBM KOMPATIBEL ■ 

Alle Teile unterliegen einer sorglaltigen Endkontrolle und wir I 
übernehmen daher volle Garanlie für die Funktionstähigkeit, 

I sowohl für die gelieferten Leerplatinen, als auch lür die lertig 
L besluckien Boards und Inlerface Karten, die last ohne Ausnahme 
P mit gesockelten IC's geliefert v;erden 
IBM — Kompatible Interface Karten und Mainboards — IBM 


Monochrome Video Boards 'KL-2060 DM ab 270,- 

RS 232 Drucker Interface Karte KL-9074 DM 148,- 

Cenlronics Paralell Inlerface Karle KL-2072 DM 95,- 

MullKunktion Karte. RAM-Bereich, HS232, 

Paralell, Clock, mit 0 K bestückt '■KL-2040 DM 298,- 

dto wie vor, jedoch mit 128K bestückt "KL-2041 DM 348,- 

dto wie vor. jedoch mit 256K bestückt 'KL-2042 DM 398,— 

512K RAM Karle, mil O K bestückt KL-2095 DM 248,- 

dto wie vor, mit 128K bestückt KL-2096 DM 298,- 

Mulli I/O Interface Board, RS232, Disk-Controller, 

Cenironics, Clock, Joystick 

und Lightpen-Porl ■'KL-2071 DM 498,- 

Eprom Writer Karte (bis 128K benutzbar) 590,— 

Hardisk'Winchesler Host-Adapter Karte ■'KL-2022 DM ab 598,— 
Mainboard XT Version 8 Slots 0 bestückt 

mil 1 Bool-Eprom. 6 Eprom-Plalze frei ■KL-1004 DM 449,— 

dto wie vor, jedoch mit 120K bestückt "KL-IOOS DM 499,- 

dlo wie vor, jedoch mit 256K bestückt "KL-1006 DM 549,- 

Bei den mit' gekennzeichneten Artikeln gehört zum Lielerumlang 
ein Manual und z T ein Schaltbild 

Preislisten + Prospekte kostenlos gegen frankierten Rückumschlag 
DISKETTEN-BOXEN 

Prall Disk Box m Schloß Klars-Deckel lOODisks DM 39.— 

Disk Box mit Klars-Deckel, ca 70 Disketten 5* DM 26,— 

Harlbox für 10 Disketten, mit Klappdeckel DM 6,90 

IBM — Kompatible Leerplatinen + Boards — IBM 
Disk Controller f 2 Drives DM 39,—■ 

Color Grafik Video Board DM 68,^— 

RS232 Inlerface Karle DM 39 — 

Cenironics Paralell Interlace Karte DM 39 — 

Mullilunktion Interface Board DM 78,— 

Eprom Writer Interlace Karle DM 7B,— 

Multi I/O Board DM 72,— 

Mamboard XT Version 8 Slols DM 98.— 

RAM Card (ur Speicher-Erweilerung DM 68,— 

Alte Leerplatinen werden mit Besluckungsplan gelieleri 
Schaltbilder, soweit verfügbar, Lielerung gegen Aufpreis. 

IBM - Gehäuse/Netzteile/Tastaturen/Diskdrives - IBM 
Rechner Leergehause I, Einbau v 2 Drives DM 148,— 

Proli-Tastatur, m Kabel im Gehäuse, ASCII DM 390,- 

dlo wie vor. jedoch deutsche DIN Belegung OM 416,- 

' ,-:üiirn T^VIllid. lüU'Ld^ A^Ctf DM 235,- 

DM 298,- 

vfAjMten ilS Wünt DM 235,- 

ÜMAtun LMilMHk JviV) Traät Ha DM 333,- 

tnMBylk 1i|3l m CäHmtiftH DM 2096 - 


Apple und IBM 
kompatible Computer 

16K, Z80, Diskcontroler je.75- 

80 Zeichenkarte mit Softswitch 

2 Zeichensätze.149,- 

Motherboard 48K ohne Firmware . 419,- 
Erphi-controler mit Autopatch . . . 300,- 

Siemenslaufwerk F 122 . * , . .515,- 

TEAC FD-55B 2 x 40 Track .... 448,- 
TEAC FD-55F 2 x 80 Track .... 475,- 
FD4 Spezialcontroler für Laufwerke 

mit bis zu 2 X 80 Track.130,- 

Drucker Star SG 10 .... 940,— 

Monochrome Monitore * . . . ab 375,- 

Farbmonitore.ab 998,- 

Tastaturen für IBM und Apple . ab 330,- 

Versand nur per Nachnahme oder Vorkasse. 
Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 

Preissenkung: 

128K Karte (Saturn kompatibel) . 375,- 

Preissenkung 4164-200 ns 

Mindestabnahme 20 Stck. . . , . . 3,90 
Zusatzkarten und Motherboard ausnahmslos 
deutsche Fertigung mit ausgesuchten Bauteilen. 

Ulf Mohwinkel Electronic 

Berliner Straße 73 Pf: 250166 
5090 Leverkusen Fettehenne 
Telefon 0214/93781 


lABACOMP 

Unsere Apple - Hits 

Preise nur solange Vorrat reicht 


Computer 48 K8 o. Firmware .... 750i- DM 

Monitor 9", grüne Röhre .. 200,- DM 

Disk-Control er für Apple ....... 75,- DM 

16 K-Karte ... 90,- DM 

Z-ao-Kart© ....* 80.-DM 

80 Zeichen-Karte... 140,- DM 

Original IBS-Drucker^Karte kompletl 
m. Anschluflkabel (Orüokertypo angeban) 248,- DM 
Dlsk-Laufwerk Slim^Une ....... 348,- DM 

Joy-Stick cd. Paddies (Zer-Set) je 28,- DM 
Drucker Centronics GLP 4 e -... 465»- OM 

Drucker SP 80 (30 Zchn./sec.)... 580,- OM 

Drucker Comdata M 100 690»- DM 

Drucker Riteman....*. 660»- OM 

Drucker Panasonic KX^P 1091 .. . 880»- OM 

Drucker Riteman F , 960»- DM 

Drucker Epson LX-80 . 880»-DM 

Drucker Epson FX-85 1480,- DM 

lypenraddrucker.. ab 725,- DM 

10 Diskeiten Quallmex Durolife . . 34,- DM 


Bestellungen bitte nur schriftlich an: 

Abacomp GmbH, Kransberger Weg 24, 6 Frankfurt 50 
Mindestbestellwert: 50,- DM 

Tel. Auskunft: Mo-Sa 8-9.30 Uhr unter (069) 7003 08 
Ladenöffnung: Mo-Fr 10-12 und 14-18 Uhr in Ffm. 90, 
Ginnheimer Landstraße 1 




Unser November-Angebot: 

Profimax Ile, APPLE Ile kompatibel, 

IBM-Look nur 1398.- 

Profimax III, APPLE II kompatibel, 

IBM-Look nur 1248.- 

Chinon-Laufwerk 051A nur 398.- 

Video-Digitalisierer incl. Software nur 298.- 

STAR sg-10, original nur 998.- 

Centronics-Interface, grafikfähig nur 118.- 


D.O.S Computersysteme 

der Partner für Schule, Hochschule, Forschung, Ferligung 


Am Kühnbach 42, 7170 Schwab. Hall 11 
Tel. 0791/51736 
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868B: 50 50 50 319 
868E: 50 50 50 50 50 



HEX 

5050505050505050 


8693: D0 D0 D0 320 
8696: D0 D0 D0 D0 D0 



HEX 

D0D0D0D0D0D0D0D0 


321 

"ZOO 

m 











869B: 00 04 08 323 

GADRHI 

HEX 

0004080C1014181C 


869E: 0C 10 14 18 IC 
86A3: 00 04 08 324 
86A6: 0C 10 14 18 IC 



HEX 

0004080C1014181C 


86AB: 01 05 09 325 
86AE: 0D 11 15 19 ID 



HEX 

0105090D1115191D 


86B3; 01 05 09 326 



HEX 

0105090D1115191D 


86B6: 0D 11 15 19 ID 
86BB: 02 06 0A 327 



HEX 

02060A0E12161A1E 


86BE: 0E 12 16 lA lE 
86C3: 02 06 0A 328 



HEX 

02060A0E12161A1E 


86C6: 0E 12 16 lA lE 
86CB: 03 07 0B 329 



HEX 

03070B0F13171B1F 


86CE: 0F 13 17 IB IF 
86D3; 03 07 0B 330 



HEX 

03070B0F13171B1F 


86D6: 0F 13 17 IB IF 
86DB: 00 04 08 331 



HEX 

0004080C1014181C 


86DE: 0C 10 14 18 IC 
86E3: 00 04 08 332 



HEX 

0004080C1014181C 


86E6: 0C 10 14 18 IC 
86EB: 01 05 09 333 



HEX 

0105090D1115191D 


86EE: 0D 11 15 19 ID 
86F3: 01 05 09 334 



HEX 

0105090D1115191D 


86F6; 0D 11 15 19 ID 
86FB: 02 06 0A 335 



HEX 

02060A0E12161A1E 


86FE: 0E 12 16 lA lE 
8703: 02 06 0A 336 



HEX 

02060A0E12161A1E 


8706: 0E 12 16 lA lE 
870B: 03 07 0B 337 



HEX 

03070B0F13171B1F 


S70E: 0F 13 17 IB IF 
8713: 03 07 0B 338 



HEX 

03070B0F13171B1F 


8716: 0F 13 17 IB IF 
871B: 00 04 08 339 
871E: 0C 10 14 18 IC 



HEX 

0004080C1014181C 


8723: 00 04 08 340 
8726: 0C 10 14 18 IC 



HEX 

0004080C1014181C 


872B: 01 05 09 341 
872E: 0D 11 15 19 ID 



HEX 

0105090D1115191D 


8733: 01 05 09 342 
8736: 0D 11 15 19 ID 



HEX 

0105090D1115191D 


873B: 02 06 0A 343 
873E: 0E 12 16 lA lE 



HEX 

02060A0E12161A1E 


8743: 02 06 0A 344 
8746: 0E 12 16 lA lE 



HEX 

02060A0E12161A1E 


874B; 03 07 0B 345 



HEX 

03070B0F13171B1F 


874E: 0F 13 17 IB IF 
8753: 03 07 0B 346 
8756: 0F 13 17 IB IF 



HEX 

03070B0F13171B1F 


347 

* 





348 


349 

* 

Byte- 

■ und 

Bit-Umrechnugs- 

* 

350 

* 



* 

351 

• 

XWERT -> XBYTE / XBIT 


352 


353 

* 





354 

* 





875B: 00 04 08 355 

BITAB 

mn 

0004080C02060A 


II 875E: 0C 02 06 0A 
8762: 00 04 08 356 



KEX 

0004080C02060A 


8765: 0C 02 06 0A 
8769: 00 04 08 357 



HEX 

0004080C02060A 


876C: 0C 02 06 0A 
8770: 00 04 08 353 



HEX 

0004080C02060A 


8773: 0C 02 06 0A 
8777: 00 04 08 359 



HEX 

0004080C02060A 


877A: 0C 02 06 0A 
877E: 00 04 08 360 



HEX 

0004080C02060A 


8781: 0C 02 06 0A 
8785: 00 04 08 361 



HEX 

0004080C02060A 


8788: 0C 02 06 0A 
878C: 00 04 08 362 



HEX 

0004080C02060A 


878F: 0C 02 06 0A 
8793: 00 04 08 363 



HEX 

0004080C02060A 


8796: 0C 02 06 0A 
879A: 00 04 08 364 



HEX 

0004080C02060A 


879D: 0C 02 06 0A 
87A1: 00 04 08 365 



HEX 

0004080C02060A 


87A4: 0C 02 06 0A 

87A8: 00 04 08 366 



HEX 

0004080C02060A 


87AB: 0C 02 06 0A 

87AF: 00 04 08 367 

87B2: 0C 02 06 0A 



HEX 

0004080C02060A 


87B6: 00 04 08 368 
87B9: 0C 02 06 0A 



HEX 

0004080C02060A 


87BD: 00 04 08 369 
87C0: 0C 02 06 0A 



HEX 

0004080C02060A 



8599: C8 


249 



INY 


859A: C6 08 


250 



DEC 

XCOUNT :Spaltenzähler 

859C; D0 EB 


251 



BNE 

SZEICH3 ;Zeile fertig? 

859E: E6 IC 


252 



INC 

YWERT 

85A0: C6 09 


253 



DEC 

YCOUNT ;Zeilenzähler 

85A2: D0 C9 


254 



BNE 

SZEICHl :Sprite fertig? 

85A4; 60 


255 



RTS 




256 







257 

* 




a5A5: A9 EA 


258 

UEBERZ 

LDA 

#$EA ;$EA = NOP 

85A7: 8D 90 85 

259 



STA 

PATCH ;0RA (SCRLO).Y 

85AA: 8D 91 

85 

260 



STA 

PATCH+1 ;löschen 

85AD: 20 24 

85 

261 



JSR 

SZEICH 

85B0: A9 11 


262 



LDA 

*$11 ;0RA ().Y OPCODE 

85B2: 8D 90 85 

263 



STA 

PATCH 

85B5: A9 06 


264 



LDA 

*SCRLO 

85B7: 8D 91 

85 

265 



STA 

PATCH+1 

85BA: 60 


266 



RTS 




267 

***J(t*******5)t**^(t* ******** ****** 



268 

* 



* 



269 

* 

Löschen der 

POS-Tabelle > 



270 

* 



* 



271 

****************************** 



272 

* 




85BB: A9 80 


273 

POSINIT 

LDA 

#>PTAB 

85BD: 85 El 


274 



STA 

BUFFHI 

85BF: A9 00 


275 



LDA 

#$00 

85C1: 85 E0 


276 



STA 

BUFFLO 

85C3: A0 00 


277 



LDY 

#<PTAB 

85C5; A9 00 


278 



LDA 

#$00 

85C7: AA 


279 



TAX 


85C8: 8A 


280 

POSLl 

TXA 


85C9: 91 E0 


281 



STA 

(BUFFLO).Y 

85CB: C8 


282 



INY 


85CC: D0 02 


283 



BNE 

P0SL2 

85CE: E6 El 


284 



INC 

BUFFHI 

85D0: C0 D0 


285 

P0SL2 

CPY 

#<POSEND 

85D2; D0 F4 


286 



BNE 

POSLl 

a5D4: A5 El 


287 



LDA 

BUFFHI 

85D6: C9 82 


288 



CMP 

#>POSEND 

85D8: D0 EE 


289 



BNE 

POSLl 

85DA: 60 


290 



RTS 




291 

* 






292 

******************************** 



293 

* 


HGR- 

ADR-Tabelle * 



294 

* 

YWERT 

-> Bildschirmadresse * 



295 

******************************** 



296 

* 




85DB: 00 00 

00 

297 

GADRLO 

HEX 

0000000000000000 

85DE: 00 00 

00 

00 00 





85E3: 80 80 80 

298 



HEX 

8080808080808080 

85E6: 80 80 

80 

80 80 





85EB: 00 00 

00 

299 



HEX 

0000000000000000 

85EE: 00 00 

00 

00 00 





85F3: 80 80 

80 

300 



HEX 

8080808080808080 

85F6: 80 80 80 80 80 





85FB: 00 00 

00 

301 



HEX 

0000000000000000 

B5FE: 00 00 

00 

00 00 





8603; 80 80 80 

302 



HEX 

8080808080808080 

8606: 80 80 80 80 80 





860B: 00 00 

00 

303 



HEX 

0000000000000000 

860E: 00 00 

00 

00 00 





8613: 80 80 80 

304 



HEX 

8080808080808080 

8616: 80 80 

80 

80 80 





861B; 28 28 

28 

305 



HEX 

2828282828282828 

86lE: 28 28 

28 

28 28 





8623: A8 A8 

A8 

306 



HEX 

A8A8A8A8A8A8A8A8 

8626: A8 A8 

A8 

A8 A8 





862B: 28 28 

28 

307 



HEX 

2828282828282828 

862E: 28 28 

28 

28 28 





8633: A8 A8 

A8 

308 



HEX 

A8A8A8A8A8A8A8A8 

8636; A8 A8 

A8 

A8 A8 





863B: 28 28 

28 

309 



HEX 

2828282828282828 

863E: 28 28 

28 

28 28 





8643: A8 A8 

A8 

310 



HEX 

A8A8A8A8A8A8A8A8 

8646: A8 A8 

A8 

A8 A8 





864B: 28 28 

28 

311 



HEX 

2828282828282828 

864E: 28 28 

28 

28 28 





8653; A8 A8 

A8 

312 



HEX 

A8A8A8A8A8A8A8A8 

8656; A8 A8 

A8 

A8 A8 





865B: 50 50 50 

313 



HEX 

5050505050505050 

865E: 50 50 50 50 50 





8663: D0 D0 D0 

314 



HEX 

D0D0D0D0D0D0D0D0 

8666: D0 D0 D0 D0 D0 





866B: 50 50 50 

315 



HEX 

5050505050505050 

866E: 50 50 50 50 50 





8673; D0 D0 D0 

316 



HEX 

D0D0D0D0D0D0D0D0 

8676: D0 D0 D0 D0 D0 





867B: 50 50 50 

317 



HEX 

5050505050505050 

867E: 50 50 50 50 50 





8683: D0 D0 D0 

318 



HEX 

D0D0D0D0D0D0D0D0 

8686: D0 D0 D0 D0 D0 
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.WilllAl 


panda>#Ft Dr.-Ing. Eden 

Uhlandstraße195 ■ 1000 Berlin 12 • Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 • Telex: 1 85 859 


Grappwr 

■ I Pilniri tnlci 


Serielles Druckerinterface 

speziell für den Apple Image- 
writer. 


11 l/m tkiu Seriell-nach-Parallel-Wandlerfü 
[ j | C //LINK den llc im Kabel integriert. 


JÜEi^APPLER c 


wie Hotlink, jedoch zusätzlich 
Imagewriter Emulation und Grafik 
Software-Diskette. 


Accelerator"'' Ile macht 
Ihren Apple® II, II Plus oder Ile 
dreieinhalbmal schneller. 


Jetzt laufen VisiCalc®, Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
Stecken Sie einfach die ACCELERATOR Ile Karte 
in irgendeinen Slot und beobachten Sie, 
wir Ihr Apple loslegt! 

ACCELERATOR Ile besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Elochgeschwindigkeits- 
speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellenrr RAM-Speicherplatz für die 
ROM-Sprache. 

Direkt von Pandasoft (Titan Distributor für Deutschland) 
oder bei Ihrem Applehändler. 


panda>#Ft 


Dr.-Ing. Eden 


ThunderScan.™ 

Ein neues optisches Lesegerät, das beliebige 
Vorlagen in MacPaint überträgt: Fotos, Zeich¬ 
nungen, Landkarten und Illustrationen werden 
in den Apple-Imagewriter eingespannt und von 
einem Lesekopf, der das Farbband ersetzt, 
abgetastet. 


Uhlandstraße 195 • 1000 Berlin 12 • Mo-Fr10-18 Uhr, Sa 10-13 Uhr 
Telefon: 030/31 04 23 • Telex: 185859 


• 32 Graustufen 

• 80 Punkte/cm Auflösung 

• Übertragungsmaßstab 25%-400% / 

• Vorlagen bis 20 x 25 cm ^ 

• Nachträgliche Veränderung des Kontrasts ^ 

und der Helligkeit. ikuMaüx^cM 


Dr.-Ing. Eden 

Uhlandstraße195-1000 Berlin 12 Mo-FrlO-ie Uhr,Sa10-13 Uhr 
Telefon: 0 30/31 04 23 • Telex: 1 85 859 


Druckerinterfaces für Apple ll+/e/ 
inurt«t^ c/lll Interfaces auf dem neuesten 
Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC. OKIDATA usw. Passende Treiber¬ 
software wird über Dip-Switch ausgewählt. 


GlSDOlCr Hh C^rafikfähiges Druckerinterface 
nprlnufinttriac« das keine Wünsche mehr offen läßt. 
Über 2 Dutzend Kommandos ermöglichen die volle Kontrolle 
über alle Möglichkeiten Ihres r. r-; «-x u 

Druckers. Jetzt auch mit ft Ji -fS H ^ OTW'' 

Ile Features: Double Hires ^ 

Grafics und 80 Zeichen Dump j 
mittels Druckerpuffer nachrüstbar 

- Besitzt alle Vorzüge des Grappier -E, 
T zusätzlich einen integrier- 


Giappler + 


ten 16 K Druckpuffer, der auf 
32 oder 64 K aufrüstbar ist. 


ie haben einen Apple... 


und die 
Hardware... 


und die 
Zeitschriften:., 


'Fordern Sie unseren Gratiskatalog an! 


ALLES FUR den APPLE ll.!-. He. llc UND MACINTOSH 


|5CinCiCI^^^FtDr.-Ing. Eden 

TEL.! 10305 310 ASS * TELEX; IQ Sß SS ^ ' j 
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87C4: 00 

04 

08 

370 


HEX 

0004080C02060A 




434 

* 


* 

87C?; 0C 

02 

06 

0A 







435 


87CB; 00 

04 

08 

371 


HEX 

0004080C02060A 




436 

STAB 

$8300 


87CE: 0C 

02 

06 

0A 







437 

* Ab STAB sollten nur die 


87D2: 00 

04 

08 

372 


HEX 

0004080C02060A 




438 

* Anfangsadressen der Sprites 


87D5: 0C 

02 

06 

0A 







439 

* abgespeichert werden. 


87D9: 00 

04 

08 

373 


HEX 

0004080C02060A 




440 

* Die einzelnen Sprites selbst 


87DC: 0C 

02 

06 

0A 







441 

können an 

anderer Stelle 


87E0: 00 

04 

08 

374 


HEX 

0004080C02060A 




442 

* im Rechner 

gespeichert werden. 

87E3: 0C 

02 

06 

0A 







443 

¥ 






375 







444 





376 







445 

* Aufbau der 

Positionstabeile 

* 




377 

* 






446 

* 


* 

87E7: 00 

00 

00 

378 

BYTAB HEX 

00000000010101 




447 

^ TD - Zeichnen 

* 

87EA: 00 

01 

01 

01 







448 

* TZ - Zwischenspeichern 

* 

87EE; 02 

02 

02 

379 


HEX 

02020202030303 




449 

* TL - Löschen 

* 

87F1: 02 

03 

03 

03 







450 

* 



87F5: 04 

04 

04 

380 


HEX 

04040404050505 




451 

¥ SPR 

Nr. des Sprites 

* 

87F8: 04 

05 

05 

05 







452 

* XWR 

X-Koordinate 

* 

87FC: 06 

06 

06 

381 


HEX 

06060606070707 




453 

* XBY 

X-Byte 

* 

87FF: 06 

07 

07 

07 







454 

* XBI 

X-Bit 

* 

8803: 08 

08 

08 

382 


HEX 

08080808090909 




455 

* YWR 

Y-Byte 

* 

8806: 08 

09 

09 

09 







456 

^ YMA 

YMAX beim Zeichnen 

* 

880A: 0A 

0A 

0A 

333 


HEX 

0A0A0A0A0B0B0B 




457 

* DRW 

ZEICHENMODUS 

* 

880D: 0A 

0B 

0B 

0B 







458 

* MSK 

Farbmaske Bit 8 

* 

8811: 0C 

0C 

0C 

384 


HEX 

0C0C0C0C0D0D0D 




459 

* 


* 

8814: 0C 

0D 

0D 

0D 







460 


8818: 0E 

0E 

0E 

385 


HEX 

0E0E0E0E0F0F0F 




461 

* 



881B: 0E 

0F 

0F 

0F 







462 

PTAB 

$8000 


881F; 10 

10 

10 

386 


HEX 

10101010111111 




463 

ORG 

1 PTAB 


8822; 10 

11 

11 

11 







464 

SPRTD DS 

ANZAHL 


8826: 12 

12 

12 

387 


HEX 

12121212131313 




465 

XWRTD DS 

ANZAHL 


8829: 12 

13 

13 

13 







466 

XBYTD DS 

ANZAHL 


882D: 14 

14 

14 

388 


HEX 

14141414151515 




467 

XBITD DS 

ANZAHL 


8830: 14 

15 

15 

15 







468 

YWRTD DS 

ANZAHL 


8834: 16 

16 

16 

389 


HEX 

16161616171717 




469 

YMATD DS 

ANZAHL 


8837: 16 

17 

17 

17 







470 

DRWTD DS 

ANZAHL 


883B; 18 

18 

18 

390 


HEX 

18181818191919 




471 

MSKTD DS 

ANZAHL 


883E; 18 

19 

19 

19 







472 




8842: lA 

lA 

lA 

391 


HEX 

lAlAlAlAlBlBlB 




473 

SPRTZ DS 

ANZAHL 


8845: lA 

IB 

IB 

IB 







474 

XWRTZ DS 

ANZAHL 


8849: IC 

IC 

IC 

392 


HEX 

ICICICICIDIDID 




475 

XBYTZ DS 

ANZAHL 


884C: IC 

ID 

ID 

ID 







476 

XBITZ DS 

ANZAHL 


8850: lE 

lE 

lE 

393 


HEX 

lElElElElFlFlF 




477 

YWRTZ DS 

ANZAHL 


8853: lE 

IF 

IF 

IF 







478 

YMATZ DS 

ANZAHL 


8857; 20 

20 

20 

394 


HEX 

20202020212121 




479 

DRWTZ DS 

ANZAHL 


885A; 20 

21 

21 

21 







480 

MSKTZ DS 

ANZAHL 


885E: 22 

22 

22 

395 


HEX 

22222222232323 




481 




8861: 22 

23 

23 

23 







482 

SPRTL DS 

ANZAHL 


8865: 24 

24 

24 

396 


HEX 

24242424252525 




483 

XWRTL DS 

ANZAHL 


8868: 24 

25 

25 

25 







484 

XBYTL DS 

ANZAHL 


886C; 26 

26 

26 

397 


HEX 

26262626272727 




485 

XBITL DS 

ANZAHL 


886F: 26 

27 

27 

27 







486 

YWRTL DS 

ANZAHL 


8873: 28 

28 

28 

398 


HEX 

28282828292929 




487 

YMATL DS 

ANZAHL 


8876: 28 

29 

29 

29 







488 

DRWTL DS 

ANZAHL 





399 

* 






489 

MSKTL DS 

ANZAHL 





400 






82D0: 

00 490 

POSEND HEX 00 





401 

* 













402 


Der nachfolgende Teil wird 



1867 

Bytes 







403 

* 

nur zur Label-Berechnung 











404 

* 

gebraucht. 












405 

* 

Daher sollte der erzeugte 











406 

* 

Obj ektcode 

an dieser Stelle 











407 

* 

abgespeichert werden. 











408 

* 

Beim MERLIN 

erfogt dies durch: 


SPRITE.EDIT 







409 

* 













410 


SAV 

ASTA 

















1000 

REM Snrite-Editor 



Object saved as ASTA^A$8400,L$047A 




1010 

REM für ASTA 







411 

* 





1020 

REM von Bernd Kl inn 






412 



1030 

REM 







413 

* 

Aufbau der Sprite-Tabelle 

* 


1040 

REM 







414 

* 



* 


1050 

REM SF% - 0 => 

Unverändert 






415 

* 

STAB DA $0000 ; Sprite 0 

* 


1060 

REM 1 => 

Sprite leer 






416 



nicht erlaubt 

* 


1070 

REM 2 => 

Sprite neu 






417 

* 

DA SPRITEI 

* 


1080 

REM 







418 

* 

DA SPRITE2 

* 


1090 

PRINT CHR$ (21): HIMEM; 16383 





419 

5tf 

* ■ p 


* 


1100 

1$ = "INS":T$ ^ 

= ":":R$ = 

':AD$ = " -DA ":B$ = 

= " BYT 




420 

* 



* 



": REM LISA 







421 

* 

SPRITEI: 


* 


1110 

1$ = SPRITEDEF —":T$ = 

= "":R$ = :AD$ - 

" DA 




422 

* 

DA Sprite für Bit 1 

* 



":B$ = " DFB " 

; REM MERLIN 






423 

* 

DA Sprite für Bit 2 

* 


1120 

DEF FN A(0) = 

START + X + Y 

* 60 





424 

* 



* 


1130 

DEF FN F(0) - 

START + 52 + ’ 

Y # 60 





425 

* 

DA Sprite für Bit 7 



1140 

DEF FN K(K) = 

K * 4 + 11 






426 

* 

SBITl DFB Länge,Breite 

* 


1150 

ROT= 0: SCALE= 

1 






427 

* 

DFB Bytes 

* 


1160 

GOTO 3670 







428 

* 



* 


1170 

REM Sprites 

zeigen =- 






. 429 

* 

Codierung eines Sprites 

* 


1180 

W = PEEK ( FNA(0)) 5i^3:F- 

PEEK ( FN F(0)) 





430 

* 



* 


1190 

HC0L0R= W + F 

¥ 4 






431 

* 


%001100 = $0B 

* 


1200 

HPLOT 188 + X, 

11 + Y: HPLOT 

235 + X,ll + Y 





432 

* 


%010010 - $12 

* 


1210 

HC0L0R= W + (1 

- F) * 4 






433 

* 

****** — 

%111111 = $3F 



1220 

HPLOT 188 + X,60 + Y: HPLOT 

235 + X,60 + Y 
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^ qRAFik 


1230 HCOLOR= W: DRAW 4 AT FN K(X), FN K(Y) 


2050 PRINT B$; 

1240 RETURN 


2060 I = - 1:A$ = "":BY = 0 

1250 REM -= Hintergrund 


2070 FOR W2 - 0 - B TO X 

1260 HGR2 

1270 HCOLOR- 1 


2080 I-I+l: IFI=7 THEN I = 0:BY = BY + PEEK (FARBBIT 
+ 60 * Wl) * 128: PRINT A$; STR$ (BY);:A$ = ",":BY - 0 

1280 FOR S = 0 TO 42 

1290 I = S * 4 + 11 


2090 W = 0: IF W2 > - 0 THEN W - PEEK (START + 60 Wl + 

W2) 

1300 HPLOT 1,11 TO 1,179 


2100 BY-BY+2tI*W 

1310 HPLOT 11,1 TO 179,1 


2110 NEXT 

1320 NEXT 

1330 HCOLOR- 3 


2120 BY = BY + PEEK (FARBBIT + 60 ¥ Wl) 128: PRINT A$; 

STR$ (BY) 

1340 RETURN 


2130 NEXT 

1350 REM -= Speicher löschen =- 


2140 PRINT R$: RETURN 

1360 REM 60 # 40 Felder 


2150 REM — Help =- 

1370 REM X0-X49 - Punkte 


2160 HOME 

1380 REM X50 - Startpunkt 


2170 INVERSE : HTAB 10; PRINT "EDITOR-KOMMANDOS:": NORMAL 

1390 REM X51 - Endpunkt 


2180 PRINT : PRINT "Editor verlassen - <ESC>" 

1400 REM X52 - Farbbit 


2190 VTAB 5: HTAB 31: PRINT "I": VTAB 7: HTAB 31: PRINT "M" 

1410 CALL LOESCHEN: RETURN 


2200 VTAB 6: PRINT "Zeichen-Cursor bewegen - J + K" 

1420 REM -= Shapes =- 


2210 VTAB 9: PRINT "Punkte setzen/löschen - <CTRL> IJKM" 

1430 POKE 233,SHAPE / 256: POKE 232,SHAPE - PEEK (233) * 

256 


2220 PRINT : PRINT "Sprite löschen - L" 

2230 PRINT ; PRINT "Farbbit setzen/löschen - F" 

1440 PRINT ’ 


2240 PRINT : PRINT "Sprite verschieben - V + IJKM" 

1450 PRINT CHR$ (4):"BLOAD SPRITE.EDIT,ASS.A";ROUTINE 


2250 TEXT 

1460 RETURN 

1470 REM — Cursor =- 


2260 VTAB 23: HTAB 7: INVERSE : PRINT "< BITTE TASTE 

DRÜCKEN >";: GET A$: PRINT : NORMAL 

1480 XDRAW 3 AT FN K(X), FN K(Y);N - 20 


2270 POKE - 16297,0: POKE - 16304,0: POKE - 16299,0: RETURN 

1490 IF N THEN N - N - 1: IF PEEK (KBD) < 128 THEN 1490 


2280 REM Initalisierung =- 

1500 XDRAW 3 AT FN K{X), FN K(Y):N = 20 

1510 IF PEEK (KBD) > 127 THEN GET A$:A = ASC (A$): RETURN 


2290 ROUTINE - 25000:LOESCHEN = ROUTINE + 68:SHAPE = 

ROUTINE + 110 

1520 N - N - 1: IF N THEN 1510 

1530 GOTO 1480 


2300 HOME :START - 26000:SPUNKT - 50 + START:EPUNKT = 51 + 

START:FARBBIT = 52 + START:KBD - - 16384 

1540 REM — EOR bei X,Y =- 

1550 POKE FN A(0),1 - PEEK ( FN A(0)) 


2310 IF PEEK (768) < > 123 THEN POKE 769,0; GOSUB 1420: 

GOSUB 1350;SF% - 1; POKE 768,123: REM Speicher löschen 

1560 GOSUB 1170 


2320 RETURN 

1570 RETURN 


2330 REM -= Editor =- 

1580 REM -= Verschieben 'M' 


2340 IF SF% > 0 THEN GOSUB 1250 

1590 FOR X = 0 TO A: FOR Y - B TO 1 STEP - 1 


2350 IF SF% = 2 THEN GOSUB 1780 

1600 POKE FN A(0), PEEK ( FN A(0) - 60): NEXT : POKE FN 

A(0),0: NEXT : RETURN 


2360 POKE - 16302,0: POKE - 16297,0: POKE - 16304,0: POKE - 
16299,0 

1610 REM -= Verschieben 'I' 


2370 SF%=0;X-0:Y-0 

1620 FOR X = 0 TO A: FOR Y = 0 TO B - 1 


2380 GOSUB 1470: REM Cursor 

1630 POKE FN A(0), PEEK ( FN A(0) + 60): NEXT : POKE FN 

A(0),0: NEXT : RETURN 


2390 IF A = ASC ("I") - 64 THEN GOSUB 1540:A$ - "I" 

2400 IF A = ASC ("K") - 64 THEN GOSUB 1540:A$ - "K" 

1640 REM — Verschieben 'K' =- 


2410 IF A - ASC ("J") - 64 THEN GOSUB 1540:A$ = "J" 

1650 FOR Y = 0 TO B: FOR X - A TO 1 STEP - 1 


2420 IF A - ASC ("M") - 64 THEN GOSUB 1540;A$ = "M" 

1660 POKE FN A(0), PEEK ( FN A(0) - 1); NEXT : POKE FN 

A(0),0: NEXT : RETURN 


2430 IF A$ = "I" THEN Y-Y-1: IFY<0 THEN Y - 41 

2440 IF A$ = "M" THEN Y=Y+1: IFY>41 THEN Y - 0 

1670 REM Verschieben ’J' =- 


2450 IF A$ = "K" THEN X-X+1: IFX>41 THEN X = 0 

1680 FOR Y = 0 TO B: FOR X = 0 TO A - 1 


2460 IF A$ - "J" THEN X=X-1: IFX<0 THEN X = 41 

1690 POKE FN A(0), PEEK ( FN A(0) + 1): NEXT : POKE FN 

A(0),0: NEXT : RETURN 


2470 IF A$ - "F" THEN GOTO 2530 

2480 IF A$ = "L" THEN 2570 

1700 REM -= Zeile plotten =- 


2490 IF A$ = "V" THEN 2650 

1710 A - X: REM X speichern 


2500 IF A$ = CHR$ (27) THEN RETURN 

1720 CALL ROUTINE:W1 - PEEK (SPUNKT + 60 ¥ Y):W2 = PEEK 
(EPUNKT + 60 Y) 


2510 IF A$ = "?" THEN GOSUB 2150: GOTO 2380 

2520 GOTO 2380 

1730 IF W1 = 99 THEN RETURN 


2530 F = PEEK ( FN F(0)):F = 1 - F 

1740 FOR X - W1 TO W2 + 1 


2540 HCOLOR= 3 * F; DRAW 3 AT 5, FN K(Y) 

1750 GOSUB 1170 


2550 POKE FN F(0),F 

1760 NEXT 


2560 GOSUB 1700: GOTO 2380 

1770 X = A: RETURN 


2570 REM Sprite löschen 

1780 REM -= Sprite komplett plotten — 


2580 HOME : POKE - 16300,0: POKE - 16303,0 

1790 CALL ROUTINE 

1800 FOR Y = 0 TO 41:W1 = PEEK (SPUNKT + 60 * Y):W2 = PEEK 
(EPUNKT + 60 * Y) 

1810 IF W1 - 99 THEN 1830 


2590 VTAB 10: PRINT "Sprite löschen (J/N)? GET A$: 

PRINT A$ 

2600 IF A$ < > "J" THEN POKE - 16304,0: POKE - 16299,0: 

GOTO 2380 

1820 FOR X = W1 TO W2 + 1: GOSUB 1170: NEXT 


2610 A - X:B = Y 

1830 IF PEEK ( FN F(0)) THEN HCOLOR= 3; DRAW 3 AT 5, FN 

K(Y) 


2620 GOSUB 1350: GOSUB 1250 

2630 X - A:Y - B 

1840 NEXT : RETURN 


2640 GOTO 2380 

1850 REM -= Eingabe =- 


2650 REM Sprite verschieben 

1860 GET E$ 

1870 IF E$ = CHR$ (13) THEN PRINT ; RETURN 


2660 HOME : POKE - 16300,0: POKE - 16303,0: GOSUB 1950;A = 

X + 1:B - Y + 1 

1880 IF E$ - CHR$ (8) THEN IF LEN (X$) >0 THEN 1920 


2670 VTAB 10: PRINT "Verschieben - welche Richtung?" 

1*890 IF E$ < " " THEN 1860 

1900 IF LEN (X$) > - MAX THEN PRINT CHR$ (7);: GOTO 1860 


2680 VTAB 12: HTAB 15: PRINT "I": HTAB 13: PRINT "J K 

Richtung": HTAB 15: PRINT "M" 

1910 PRINT E$;:X$ = X$ + E$: GOTO 1860 

1920 IF LEN (X$) - 1 THEN X$ = GOTO 1940 


2690 PRINT ; PRINT "andere Eingabe -> zurück": VTAB 10: 

HTAB 33: PRINT ;: GET A$: PRINT A$ 

1930 X$ = LEFT$ (X$, LEN (X$) - 1) 


2700 IF A$ - "M" THEN GOSUB 1580: GOTO 2750 

1940 PRINT E$;" ";E$:: GOTO 1860 


2710 IF A$ - "I" THEN GOSUB 1610: GOTO 2750 

1950 REM -= Länge/ Breite =- 


2720 IF A$ = "K" THEN GOSUB 1640: GOTO 2750 

1960 Y - 42: CALL ROUTINE 


2730 IF A$ - "J" THEN GOSUB 1670: GOTO 2750 

1970 Y=Y-1: IFY>-0 THEN IF PEEK (SPUNKT + 60 ^ Y) - 
99 THEN 1970 


2740 POKE - 16304,0: POKE - 16299,0: GOTO 2380 

2750 POKE - 16304,0: POKE - 16299,0 

1980 X - 0: FOR B = 0 TO Y 


2760 GOSUB 1250: GOSUB 1780 

1990 IF PEEK (SPUNKT + 60 * B) < > 99 THEN W = PEEK (EPUNKT 
+ 60 * B): IF X < W THEN X - W 


2770 X = A:Y = B: GOTO 2380 

2780 REM BSPRITE-Berechnung =- 

2000 NEXT : RETURN 

2010 REM -= BITSPRITE ^ 


2790 HOME : INVERSE : HTAB 9: PRINT "BSPRITE-BERECHNUNG": 

NORMAL 

2020 PRINT L$; STR$ (B + 1);T$ 


2800 PRINT : PRINT "1 -> Normal" 

2030 PRINT B$; INT ((B + X) / 7 + 1);”,";Y + 1 


2810 PRINT ; PRINT "2 -> Normal (alle Farben)" 

2040 FOR W1 = 0 TO Y 


2820 PRINT : PRINT "3 ~> Einzel-Sprite" 


Peeker11/85 


17 









2830 PRINT : PRINT ”Nr.:";; GET A$:A = VAL {A$): HTAB 1: 
PRINT " " 

2840 IF A > 3 OR A < 1 THEN PRINT CHR$ (7): RETURN 
2850 INVERSE : VTAB 2 * A + 1: PRINT STR$ (A): NORMAL 
2860 POKE 34,11: HOME 

2870 X$ = "T,”:MAX = 33: PRINT "Filename: T.";: GOSUB 
1850:F$ = X$: VTAB 9: PRINT "File: ":F$ 

2880 IF F$ = "" THEN PRINT CHR$ (7): RETURN 
2890 HOME : PRINT "Labelname (max 5 Zeichen): ";:MAX = 5;X$ 
= GOSUB 1850 

2900 IF X$ = "" THEN PRINT CHR$ (7): RETURN 
2910 L$ = X$: VTAB 10: PRINT "Label: ";L$: HOME 
2920 IF A = 3 THEN 3120 
2930 GOSUB 1950 

2940 IF PEEK (KBD) = 171 THEN PRINT CHR$ (7);X = X + 1 
2950 VTAB 11: PRINT "Sprite: ":X;" # ";Y 
2960 PRINT CHR$ (4);"MONCIO" 

2970 HOME : PRINT CHR$ (4);"OPEN ";F$ 

2980 PRINT CHR$ (4);"WRITE ";F$ 

2990 PRINT 1$ 

3000 PRINT L$;T$ 

3010 FOR B = 1 TO 7; PRINT AD$;L$; STR$ (B): NEXT 
3020 IF A = 1 THEN 3050 
3030 PRINT L$:"S":T$ 

3040 FOR B = 2 TO 8: PRINT AD$;L$; STR$ (B): NEXT 
3050 PRINT R$ 

3060 FOR B = 0 TO A + 5 
3070 GOSUB 2010 
3080 NEXT 

3090 PRINT CHR$ (4);"CLOSE ";F$ 

3100 PRINT CHR$ (4);"NOMONCIO" 

3110 RETURN 

3120 REM Einzel-Sprite 
3130 HOME 

3140 PRINT "Begrenzung festlegen -" 

3150 PRINT "Cursor bewegen mit I J K M" 

3160 PRINT "Mit <ESC> beenden" 

3170 PRINT : INVERSE : PRINT "<RETURN> DRÜCKEN": NORMAL 
3180 GET A$; IF A$ < > CHR$ (13) THEN 3180 
3190 PRINT : POKE - 16302,0: POKE - 16297,0: POKE - 
16304,0: POKE - 16299,0 
3200 GOSUB 1950 

3210 HCOLOR= 1: HPLOT 0, FN K(Y) + 2 TO 4, FN K(Y} + 2: 

HPLOT FN K(X) + 2,0 TO FN K(X) + 2,4 
3220 GOSUB 1470 

3230 HCOLOR= 0: HPLOT 0, FN K(Y) + 2 TO 4, FN K(Y) + 2: 

HPLOT FN K(X} + 2,0 TO FN K(X) + 2,4 
3240 IF A$ = "I" THEN Y=Y-1: IFY<0 THEN Y = 41 

3250 IF A$ = "M" THEN Y=Y+1: IFY>41 THEN Y = 0 

3260 IF A$ = "K" THEN X=X+1: IFX>41 THEN X = 0 

3270 IF A$ = "J" THEN X=X-1; IFX<0 THEN X = 41 

3280 IF A$ < > CHR$ (27) THEN 3210 

3290 TEXT : POKE 34,11: HOME : VTAB 11: PRINT "Sprite: 

";X:" * ";Y: HOME 

3300 INPUT "Ab welchem Bit (1-7) ?";A$ 

3310 B = VAL (A$}: IF B < 1 OR B > 7 THEN PRINT CHR$ (7);: 
RETURN 

3320 VTAB 11: HTAB 20: PRINT "Bit :";B: HOME 
3330 PRINT CHR$ (4);"M0NCI0" 

3340 PRINT CHR$ (4);"OPEN ";F$ 

3350 PRINT CHR$ {4);"WRITE ";F$ 

3360 PRINT L$;T$ 

3370 FOR W = 0 TO 6: PRINT AD$;L$; STR$ (B): NEXT 
3380 B = B - 1 
3390 GOSUB 2010 

3400 PRINT CHR$ (4);"CL0SE ";F$ 

3410 PRINT CHR$ (4);"NOMONCIO" 

3420 RETURN 

3430 REM -= Sprite laden/sichern =- 
3440 HOME 

3450 INVERSE : HTAB 4: PRINT " SPRITE LADEN/SICHERN ": 
NORMAL 

3460 VTAB 3: PRINT "L)aden oder S)ichern 
3470 INVERSE 

3480 GET A$: IF A$ = "L" THEN HTAB 1; PRINT "L)ADEN": GOTO 
3510 

3490 IF A$ < > "S" THEN PRINT CHR$ (7): RETURN 
3500 HTAB 13: PRINT "S)ICHERN" 

3510 NORMAL : POKE 34,5 

3520 HOME : PRINT "? - CATALOG"; PRINT 

3530 MAX = 33:X$ = "SPR.": PRINT "Filename: SPR."; 

3540 GOSUB 1850 

3550 IF X$ = "?" OR X$ = "SPR.?" THEN PRINT CHR$ 

(4);"CATALOG": GET X$: GOTO 3520 
3560 IF A$ = "S" THEN 3610 
3570 REM Laden 
3580 CALL LOESCHEN:SF% = 1 
3590 PRINT CHR$ (4),"BLOAD";X$;",A";START 
3600 SF% = 2: RETURN 
3610 REM Sichern 
3620 CALL ROUTINE:Y = 42 


3630 Y=Y-1: IFY>=0 THEN IF PEEK (SPUNKT + 60 * Y) = 
99 THEN 3630 

3640 Y=Y+1; IFY=0 THEN RETURN 

3650 PRINT CHR$ (4);"BSAVE":X$;",A";START;",L";Y * 60 

3660 RETURN 

3670 REM -= Hauptprogramm =- 
3680 SF% = PEEK (769) 

3690 ONERR GOTO 3830 
3700 GOSUB 2280 
3710 REM -= Menü =- 
3720 TEXT : HOME 

3730 HTAB 15: INVERSE : PRINT "SPRITE-EDITOR": NORMAL : 

VTAB 5 

3740 PRINT "1 -> Sprite editieren (?-Help}": PRINT 
3750 PRINT "2 -> BSPRITE berechnen"; PRINT 
3760 PRINT "3 -> Sprite laden/sichern": PRINT 
3770 PRINT "4 -> Programmende": PRINT 
3780 VTAB 15: PRINT "Nr.:"; 

3790 GET A$:A = VAL (A$): PRINT A$ 

3800 IF A = 4 THEN POKE 769,SF%: HOME : END 

3810 ON A GOSUB 2330,2780,3430 

3820 GOTO 3710 

3830 REM — Error — 

3840 POKE 769,SF%: TEXT 

3850 PRINT PEEK (222); CHR$ (7);" ERROR IN "; PEEK (218) + 
PEEK (219) * 256 
3860 END 


SPRITE.EDIT.ASS 

BSAVE SPRITE.EDIT.ASS, A$2000, L$00A6 


2000:A9 

90 

85 

19 

A9 

65 

85 

lA 

2008:A9 

2A 

85 

07 

A0 

32 

A9 

63 

2010:91 

19 

A0 

00 

Bl 

19 

D0 

17 

2018:C8 

C0 

32 

D0 

F7 

18 

A5 

19 

2020:69 

3C 

85 

19 

A5 

lA 

69 

00 

2028:85 

lA 

C6 

07 

D0 

DE 

60 

98 

2030:AA 

A0 

32 

Bl 

19 

C9 

63 

D0 

2038:03 

8A 

91 

19 

8A 

08 

91 

19 

2040:A8 

18 

90 

D4 

A9 

90 

85 

19 

2048:A9 

65 

85 

lA 

A9 

2A 

85 

07 

2050:A2 

00 

A0 

00 

8A 

91 

19 

C8 

2058:C0 

60 

D0 

F9 

18 

A5 

19 

69 

2060:3C 

85 

19 

A5 

lA 

69 

00 

85 

2068:lA 

C6 

07 

D0 

E5 

60 

04 

00 

2070:0A 

00 

19 

00 

22 

00 

2A 

00 

2078:2D 

2D 

36 

36 

3F 

3F 

24 

2C 

2080:2D 

36 

3F 

2C 

05 

43 

00 

0D 

2088:0D 

36 

36 

IF 

IF 

24 

24 

00 

2090:89 

36 

05 

43 

IF 

04 

43 

00 

2098:11 

2D 

36 

3F 

2C 

05 

43 

00 

20A0:00 

00 

00 

00 

00 

00 




Kurzanleitung 

Das Sprite in dem Programm ASTA DEMO kann man 

folgendermaßen selbst erstellen: 

1) SPRITE.EDIT eingeben und mit 
SAVE SPRITE,EDIT 
abspeichern. 

2) SPRITE.EDIT.ASS abtippen und mit 
BSAVE SPRITE.EDIT.ASS, A$2000, L$00A6 
abspeichern. 

3) Mit dem Sprlte-Editor ein eigenes Sprite erstellen 
und mit der Option "Bitsprite berechnen" als normales 
Sprite unter dem File— und Labelnamen "SPRTE" 
abspeichern, 

4) ASTA,DEMO als Assembler-Quelltext bis Zeile 93 
eingeben und danach mit dem R-Kommando (Merlin- 
Assembler) das eigene Sprite einladen. 

{Quelltext als T.ASTA,DEMO oder ASTA.DEMO S speichern.) 

5) Nach dem Assemblieren: Objektcode unter dem Namen 
ASTA.DEMO abspeichern. 

6) Aufruf durch 
BLOAD ASTA 
BRUN ASTA DEMO 
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[ 


0856: 

: 10 

E8 


72 


BPL 

INTLOOP 


0858: 

: 60 



73 


RTS 







74 





0859 

A0 

ID 


75 

PROGRAMM 

LDY 

#29 


085B 

38 



76 

PRGMLOOP 

SEC 



085C 

B9 

35 

Dl 

77 


LDA 

$D135,Y 

j"Zufallszahl" 

085F 

29 

03 


78 


AND 

#%00000011 

; MOD 4 

0861 

79 

lE 80 

79 


ADC 

XWRTD,Y 

; addieren 

0864 

C9 

8C 


80 


CMP 

#140 

;Rechter Rand? 

0866 

90 

02 


81 


BCC 

PRGRMl 


0868 

A9 

00 


82 


LDA 

#$00 

;ja, von vorn 

086A 

99 

lE 80 

83 

PRGRMl 

STA 

XWRTD,Y 

:neue Koord. 

086D 

88 



84 


DEY 



086E 

10 

EB 


85 


BPL 

PRGMLOOP 


0870 

60 



86 


RTS 







87 





0871: 

: 2C 

30 

C0 

88 

GRAFIK 

BIT 

$C030 

;keine GRAFIK 

0874: 

: 60 



89 


RTS 







90 









91 

* Folgende Tabelle wurde 

mit 





92 

* SPRITE 

.EDIT 

erstellt: 






93 

* 








94 

SPRITEDEF 

— 


0875 : 

83 

08 


95 

SPRTE 

DA 

SPRTEl 


0877: 

8A 

08 


96 


DA 

SPRTE2 


0879: 

91 

08 


97 


DA 

SPRTE3 


087B: 

98 

08 


98 


DA 

SPRTE4 


087D; 

A4 

08 


99 


DA 

SPRTE5 


087F: 

B0 

08 


100 


DA 

SPRTE6 


0881: 

BC 

08 


101 


DA 

SPRTE7 


0883: 

01 

05 


102 

SPRTEl 

DFB 

1,5 


0885: 

0E 



103 


DFB 

14 


0886: 

IF 



104 


DFB 

31 


0887: 

IF 



105 


DFB 

31 


0888: 

IF 



106 


DFB 

31 


0889: 

0E 



107 


DFB 

14 


088A: 

01 

05 


108 

SPRTE2 

DFB 

1.5 


088C: 

IC 



109 


DFB 

28 


088D: 

3E 



110 


DFB 

62 


088E: 

3E 



111 


DFB 

62 


088F: 

3E 



112 


DFB 

62 


0890: 

IC 



113 


DFB 

28 


0891: 

01 

05 


114 

SPRTE3 

DFB 

1,5 


0893: 

38 



115 


DFB 

56 


0894: 

7C 



116 


DFB 

124 


0895 : 

7C 



117 


DFB 

124 


0896: 

7C 



118 


DFB 

124 


0897: 

38 



119 


DFB 

56 


0898: 

02 

05 


120 

SPRTE4 

DFB 

2,5 


089A; 

70 

00 


121 


DFB 

112,0 


089C: 

78 

01 


122 


DFB 

120,1 


089E: 

78 

01 


123 


DFB 

120,1 


08A0: 

78 

01 


124 


DFB 

120,1 


08A2: 

70 

00 


125 


DFB 

112,0 


08A4: 

02 

05 


126 

SPRTE5 

DFB 

2,5 


08A6: 

60 

01 


127 


DFB 

1 — 1 

CD 

cn 


08A8: 

70 

03 


128 


DFB 

112,3 


08AA: 

70 

03 


129 


DFB 

112,3 


08AC: 

70 

03 


130 


DFB 

112,3 


08AE: 

60 

01 


131 


DFB 

96, 1 


08B0: 

02 

05 


132 

SPRTE6 

DFB 

2,5 


08B2: 

40 

03 


133 


DFB 

64,3 


08B4: 

60 

07 


134 


DFB 

96,7 


08B6: 

60 

07 


135 


DFB 

96,7 


08B8: 

60 

07 


136 


DFB 

96,7 


08BA: 

40 

03 


137 


DFB 

64,3 


08BC: 

02 

05 


138 

SPRTE7 

DFB 

2,5 


08BE: 

00 

07 


139 


DFB 

0,7 


08C0: 

40 

0F 


140 


DFB 

64, 15 


08C2: 

40 

0F 


141 


DFB 

64, 15 


08C4: 

40 

0F 


142 


DFB 

64, 15 


08C6: 

00 

07 


143 


DFB 

0,7 

0 

200 Bytes 






m 


ASTA.DEMO 









2 

* Beispiel 

zur Anwendung von ASTA ^ 




3 

* 



* 




4 

* Abspeichern 

mit 

* 




5 

* BSAVE 

ASTA, 

DEMO, A$0800, L$00C8 * 




6 

# Aufrufen mit 

¥ 




7 

¥ BLOAD 

ASTA, 

dann BRUN 

ASTA.DEMO * 




8 

* Abbrechen mit Reset 

* 




9 




* 




10 

* von H, 

Grumser 

* 












12 








13 


ORG 

$800 





14 








15 

HPAG 

EQU 

$E6 





16 

HGR2 

EQU 

$F3D8 





17 

HGR 

EQU 

$F3E2 





18 

BKGNDl 

EQU 

$F3F8 





19 








20 

* ASTA-Routinen und -Tabellen 




21 








22 

SPRTD 

EQU 

$8000 





23 

XWRTD 

EQU 

SPRTD+30 





24 

YWRTD 

EQU 

XWRTD+90 





25 

YMATD 

EQU 

YWRTD+30 





26 

STAB 

EQU 

$8300 





27 

POSINIT 

EQU 

$85BB 





28 

ASTA 

EQU 

$8400 





29 





0800: 20 

BB 

85 

30 


JSR 

POSINIT 

; Tab. löschen 

0803: 20 

29 

08 

31 


JSR 

INIT 

;Initialisierung 




32 





0806: AD 

54 

C0 

33 

LOOP 

LDA 

$C054 

;HGR2 zeichnen 

0809: A9 

40 


34 


LDA 

#$40 

;HGRl anzeigen 

080B: 85 

E6 


35 


STA 

HPAG 


080D: 20 

59 

08 

36 


JSR 

PROGRAMM 


0810: 20 

00 

84 

37 


JSR 

ASTA 

;Sprites zeichnen 

0813: 20 

71 

08 

38 


JSR 

GRAFIK 

:Bild ändern 




39 





0816: AD 

55 

C0 

40 


LDA 

$C055 

jHGRl anzeigen 

0819: A9 

20 


41 


LDA 

#$20 

;HGR2 zeichnen 

0S1B: 85 

E6 


42 


STA 

HPAG 


081D: 20 

59 

08 

43 


JSR 

PROGRAMM 


0820: 20 

00 

84 

44 


JSR 

ASTA 

;Sprites zeichnen 

0823: 20 

71 

08 

45 


JSR 

GRAFIK 

;Bild ändern 




46 





0826: 18 



47 


CLC 


;Endlos- 

0827: 90 

DD 


48 


BCC 

LOOP 

; schleife 




49 








50 

* Unterprogramme 





51 





0829: 20 

E2 

F3 

52 

INIT 

JSR 

HGR 

;HGR1 löschen 

082C: 20 

D8 

F3 

53 


JSR 

HGR2 

:HGR2 löschen 

082F; A9 

60 


54 


LDA 

#$60 

;Hintergrund 

0831: 20 

F8 

F3 

55 


JSR 

BKGNDl 

; löschen 

0834: A9 

75 


56 


LDA 

#<SPRTE 

;Sprite-Zeiger 

0836: 8D 

02 

83 

57 


STA 

STAB+2 

j in Sprite- 

0839: A9 

08 


58 


LDA 

#>SPRTE 

; tabeile 

083B: 8D 

03 

83 

59 


STA 

STAB+3 

; eintragen 

083E; A0 

ID 


60 


LDY 

*29 


0840: A9 

01 


61 

INTLOOP 

LDA 

#1 

;Sprite-Nummer 

0842: 99 

00 

80 

62 


STA 

SPRTD,Y 

; eintragen 

0845: A9 

BF 


63 


LDA 

#191 

;Unterkante 

0847: 99 

96 

80 

64 


STA 

YMATD,Y 

: eintragen 

084A: 98 



65 


TYA 



084B: 0A 



66 


ASL 


;Y-Koord. ^ 

084C: 0A 



67 


ASL 


; 4 * Y-Reg. 

084D: 99 

78 

80 

68 


STA 

YWRTD,Y 


0850: 29 

IF 


69 


AND 

#%00011111 

;X-Koord, = 

0852: 99 

lE 

80 

70 


STA 

XWRTD,Y 

; 4 * Y-Reg. 

0855: 88 



71 


DEY 


; MOD 16 


Hinweis: Die Peeker-Sammeldisk # 11 enthält zusätzlich ein komplettes Demo, das mit RUN ASTA.DEM0.1 gestartet werden 
kann und seinerseits die verschiedenen Binärfiles AD1 bis AD5 automatisch einlädt. 
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Großformatiger 

HGR-Ausdruck 


von Mark Liebrand 


Die hier vorgesteilte Routine ermögiicht 
es, mit Hüte eines Druckers Hardcopies 
vom HGR-Biidschirm in der Größe von 
Postern oder Plakaten anzufertigen. Im 
Extremfall können diese Ausdrucke eine 
Fläche von fast 30 qm einnehmen. 

Eine „Posterroutine“ ist sehr nützlich, 
wenn man Plakate erstellen will (z.B. von 
besonders guten Grafiken aus Spielen) 
oder wenn man mit einem Malprogramm 
ein Kunstwerk erstellt hat und sich dieses 
groß aufhängen möchte. Orientiert man 
sich am Imagewriter, so kann ein Aus¬ 
druck von 40facher Vergrößerung durch¬ 
aus die Maße 7,12 m x4,32 m annehmen. 
Es sind allerdings auch Zimmergrößen er¬ 
reichbar, z.B. 1 ,43 m X 1 ,08 m bei Faktor 8 
oder 0,71 m x 0,54 m bei Faktor 4. Wem 
dies immer noch zu groß ist, der sollte es 
einmal mit Faktor 2 versuchen, es wird ein 
„Pösterchen“ von 35,6 cm x 27 cm aus¬ 
gegeben. 


Arbeitsweise des Programms 

Dieses Programm läuft auf einem Apple II 
mit mindestens 48K, Diskettenlaufwerk 
und grafikfähigem Drucker. Man kann ver¬ 
schiedene Vergrößerungsfaktoren einge¬ 
ben: 2, 4, 8, 20 und 40. Die Faktoren 
geben an, um das Wievielfache sich die 
Kantenlängen des Bildes steigern. Also 
wird ein Bild bei Faktor 4 viermal so breit 
und viermal so hoch. 

Um dies zu erreichen, muß das zu vergrö¬ 
ßernde Bild in die erste Grafikseite gela¬ 
den werden. Darauf erfolgt ein Sprung in 
eine Maschinenroutine. Sie unterteilt das 
Originalbild in - den Faktoren entspre¬ 
chend - kleine Teilbilder, die nacheinan¬ 
der vergrößert in die zweite Grafikseite 
kopiert werden. Ist ein Teiibild kopiert, er¬ 
folgt ein Rücksprung nach Applesoft. Nun 
kann eine Hardcopy erstellt werden. Durch 
den Rücksprung nach Applesoft erreicht 


man, daß diese Routine kompatibel zu al¬ 
len Druckern ist, die überhaupt grafikfähig 
sind. Denn im Applesoft-Programm kann 
man die Codes, die man für die Grafikaus¬ 
gabe braucht, bequem einfügen. Diese 
Steuerzeichen müssen sich auf die zweite 
Grafikseite beziehen. 

Ist die Hardcopy ausgegeben, erfolgt wie¬ 
der ein Sprung in das Maschinenpro¬ 
gramm. Hier wird wieder ein Teilbild er¬ 
stellt, dann erfolgt der Rücksprung usw., 
bis das ganze Originalbild abgetastet ist. 
Wenn alles fertig ist, braucht man nur noch 
die gedruckten Bilder aneinanderzukle¬ 
ben. Um dabei nicht allzu lange puzzlen zu 
müssen, sollte man wissen, daß das Origi¬ 
nalbild in Zeilen von links oben nach 
rechts unten abgetastet wird und genauso 
die Ausgabe erfolgt. 

Wer eine .20- oder 40fache Vergrößerung 
macht, wird merken, daß das Bild etwas 
verzerrt wird. Das Verhältnis von Höhe 
und Breite ist nicht mehr dassebe wie 
beim Original. Dies ist dadurch zu erklä¬ 
ren, daß die X- und Y-Achse im Grafikbild¬ 
schirm nicht dieselben Teiler haben und 
so ein Kompromiß auf Kosten der Y-Achse 
eingegangen wurde, um den Program¬ 
mieraufwand in Grenzen zu halten. 


Eingeben des Programms 

Beim Abtippen beginnt man zweckmäßi¬ 
gerweise mit dem Assemblerlisting PLA¬ 
KAT. Der Objektcode sollte dann mit 
„BSAVE PLAKAT, A$6001, L$01D4“ ge¬ 
speichert werden. Als nächstes kommt 
das Applesoft-Programm PLAKAT.IN- 
STALL an die Reihe. Es lädt den eben 
erzeugten Objectcode ein und fügt eine 
Tabelle hinzu, in der sortiert die Speicher¬ 
adressen aller Zeilen der Grafikseiten ste¬ 
hen. Nach Anlage der Tabelle speichert 
das Programm den erweiterten Objekt¬ 
code wieder. Die Ausführung des 
INSTALL-Programms dauert ungefähr ei¬ 


ne Minute. (Auf der Peeker-Sammeldis- 
kette ist das Programm PLAKAT bereits 
installiert, das INSTALL-Programm befin¬ 
det sich nur der Vollständigkeit halber 
ebenfalls auf der Diskette.) 

Nachdem nun das Gröbste geschafft ist, 
kann man das zweite Applesoft-Programm 
PLAKAT.DEMO eingeben. Dieses Pro¬ 
gramm soll lediglich zeigen, wie die Ma¬ 
schinenroutine zu bedienen ist. Es ist auch 
denkbar, es in ähnlicher Form in andere 
Programme einzubauen. Allerdings sollte 
man darauf achten, daß die Variablen des 
Programms nicht das Maschinenpro¬ 
gramm oder die Grafikseiten berühren, 
sonst können nämlich seltsame Dinge 
passieren. Gegebenenfalls ist HIMEM auf 
8192 ($2000) zu setzen, um Konflikte zu 
vermeiden. 

Aufruf des Programms PLAKAT 

Beim Aufruf der Maschinenroutine kommt 
es darauf an, daß sich das zu vergrößern¬ 
de Bild in der ersten Grafikseite befindet. 
Wenn das Bild von Diskette geladen wer¬ 
den soll, erreicht man dies auf jeden Fall 
mit „BLOAD Bildname, A$2000". 
Außerdem muß der Vergrößerungsfaktor 
in Speicherstelle 255 gepokt werden. 
Dann sollte mit CALL 24577 der erste 
Aufruf (Kaltstart) der Routine erfolgen. Er 
veranlaßt, daß die Zeiger und Variablen 
des Programms initialisiert werden. Direkt 
nach dem Kaltstart wird das erste Teilbild 
auf Grafikseite 2 ausgegeben oder es er¬ 
folgen zwei Piepstöne, die signalisieren, 
daß der Vergrößerungsfaktor falsch ge¬ 
wählt wurde. Damit das auch im Programm 
erkannt wird, muß nach diesem CALL- 
Befehl eine Anweisung folgen, die das 
„Statusflag“ (Speicherstelle 254) auf den 
Wert Null hin überprüft. In diesem Fall 
sollte das Programm abgebrochen werden 
oder eine Fehlermeldung erfolgen. 
Nachdem der Kaltstart erfolgreich durch¬ 
geführt wurde, sollten nun die Befehle er- 
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folgen, die den Drucker zur Ausgabe der 
zweiten Grafikseite veranlassen. 

Danach kann nun durch wiederholten Auf¬ 
ruf des Warmstarts mittels CALL 24663 
ein Bild nach dem anderen ausgegeben 
werden, bis der Status den Wert Null ein¬ 
nimmt, d.h. alle Teilbilder wurden abgear¬ 
beitet. 

Das Programm PLAKAT.DEMO erfüllt die 
oben beschriebenen Anforderungen und 
kann somit ohne Bedenken zum Testen 
benutzt werden. 

Zum Schluß noch drei Hinweise: 

- Wer über kein Grafik-Interface verfügt, 
kann die Teilbilder auch auf Diskette spei¬ 
chern (BSAVE Bildname, A$4000, 


L$2000) und den Ausdruck mit Hilfe des 
Programms SUPERDUMP aus Peeker, 
Heft 6/85 erledigen. 

- Der Drucker bildet die Schwachstelle 
des ganze Systems. Erstens wird der 
Druckkopf bei Grafikausgabe ziemlich 
stark beansprucht: Deshalb sollte man bei 
einer größeren Zahl von Hardcopies die 
durchsichtige Kunststoffabdeckung, die 
Druckkopf und Papier schützt, wegen der 
stärkeren Wärmeentwicklung hoch¬ 
klappen. 

Zweitens ist die Zeit zu beachten: Wenn 
der Drucker drei Minuten für eine Hardco¬ 
py braucht, dann benötigt er für eine 
4fache Vergrößerung ungefähr 48 Minu¬ 
ten. Überträgt man die auf den Vergröße¬ 


rungsfaktor 40, so werden 1280 Bilder ge¬ 
druckt, was einer Druckzeit von ca. 2 1/2 
Tagen nonstop entspricht. Allerdings 
macht man sicherlich nicht ständig solche 
Ausdrucke, so daß man sich darüber nicht 
den Kopf zerbrechen sollte. 

- Wem das Format 7 m x 4 m noch nicht 
groß genug ist, der sollte bei 40facher 
Vergrößerung die Teilbilder nicht drucken, 
sondern auf ca. 45 Disketten (beidseitig) 
speichern lassen, um diese Bilder dann 
einzeln wieder um den Faktor 40 zu ver¬ 
größern. Das Ergebnis ist ein Superplakat 
mit den Maßen 284,8 m x 138,2 m, beste¬ 
hend aus 1 638 400 Blättern und einer 
Fläche von beinahe 40 000 qm. Das wäre 
ein Fall fürs Guinness Buch der Rekorde. 



Tabelle 1 


Faktor 

Maße (cm) 

Blatt 

2 

35,6 X 27 

4 

4 

71,2 X 54 

16 

8 

142,2 X 108 

64 

20 

356 X 216 

320 

40 

712 X 432 

1280 


Auflistung der unterschiedlichen Druckformate. 

Die Maßangaben beziehen sich auf die Größe einer normalen 
Hardcopy von 17,8 cm x 13,5 cm 


Kurzanleitung 

1- PLAKAT eingeben und mit "BSAVE PLAKAT, A$6001, L$01D4" 
abspeichern. 

2. PLAKAT.INSTALL eingeben, Diskette mit PLAKAT einlegen 
und PLAKAT.INSTALL starten. 

3 PLAKAT.DEMO eingeben und Zeile 70 durch eigene drucker¬ 
spezifische Hardcopy-Befehle ersetzen. 


PLAKAT.DEMO 

10 PRINT CHR$ (4)"BL0AD PLAKAT" 

20 INPUT "Bildname ? ";FI$ 

30 PRINT CHR$ (4)"BL0AD"FI$",A$2000" 

40 INPUT "Vergrößerung ?";V 

50 HGR2 : POKE 255,V: CALL 24577 

60 IF PEEK (254) - 0 THEN END : REM Faktor falsch 

70 REM Hier die Hardcopy-Befehle des Druckers einfügen! 

80 IF PEEK (254) = 0 THEN END 

90 CALL 24663: GOTO 70 


PLAKAT.INSTALL 

100 PRINT CHR$ (4)"BL0AD PLAKAT" 

110 TI = 25088 

120 T2 - TI + 256 

130 T3 - T2 + 256 

140 T4 = T3 + 256 

150 FOR A = 0 TO 2 

160 FOR B - 0 TO 7 

170 FOR C = 0 TO 7 

180 D = C * 1024 + B * 128 + A * 40 

190 H - INT ((D + 8192) / 256):L = (D + 8192) - H * 256 

200 POKE T1,L: POKE T2,H 

210 H = H + 32 

220 POKE T3,L: POKE T4,H 

230 TI = TI + 1;T2 = T2 + 1:T3 = T3 + 1;T4 = T4 + 1 
240 NEXT C,B,A 
250 PRINT 

260 PRINT CHR$ (4)"BSAVE PLAKAT,A$6001,L$600" 


PLAKAT 


2 

3 

4 

5 

6 

7 * Mark Liebrand, 1985 

8 * 






9 

TAB 

EQU 

$F9 






10 

TABl 

EQU 

$FB 






11 

MEM 

EQU 

$FD 






12 

STATUS 

EQU 

$FE 






13 

NUM 

EQU 

$FF 






14 

TABILZ 

EQU 

$50 






15 

TABIHZ 

EQU 

$52 






16 

TAB2LZ 

EQU 

$54 






17 

TAB2HZ 

EQU 

$56 






18 

FAKZ 

EQU 

$58 






19 

ZI 

EQU 

$EB 






20 

Z3 

EQU 

$EC 






21 

Z4 

EQU 

$ED 






22 

ZW 

EQU 

$EE 






23 

ZWl 

EQU 

$EF 






24 

ZW2 

EQU 

$CE 






25 

BELL 

EQU 

$FF3A 






26 

* 








27 


ORG 

$6001 






28 

* 




6001 

A2 

05 


29 


LDX 

#5 ; 

Prü fen 

6003 

BD 

18 

60 

30 

SCHLEIl 

LDA 

ZIFF,X j 

von 

6006 

C5 

FF 


31 


CMP 

NUM ; 

NUM 

6008 

F0 

26 


32 


BEQ 

OK 


600A 

CA 



33 


DEX 



600B 

D0 

F6 


34 


BNE 

SCHLEIl 


600D 

20 

3A 

FF 

35 


JSR 

BELL ; 

ERROR, 

6010 

20 

3A 

FF 

36 


JSR 

BELL ; 

Faktor 

6013 

A9 

00 


37 


LDA 

+0 ; 

falsch 

6015 

85 

FE 


38 


STA 

STATUS 


6017 

60 



39 


RTS 


Konstanten 

6018 

00 

02 

04 

40 

ZIFF 

HEX 

000204081428 


601B 

08 

14 

28 






601E 

00 

02 

04 

41 

ZIFFl 

HEX 

000204081020 


6021 

08 

10 

20 






6024 

00 

14 

0A 

42 

ZIFF2 

HEX 

00140A050201 


6027 

05 

02 

01 






602A 

00 

60 

30 

43 

ZIFF3 

HEX 

006030180C06 


602D 

18 

0C 

06 






6030 

A9 

80 


44 

OK 

LDA 

#$80 


6032 

85 

FE 


45 


STA 

STATUS 


6034 

BD 

18 

60 

46 


LDA 

ZIFF,X ; 

Konst. 

6037 

8D 

C2 

61 

47 


STA 

FAKl ;einiesen 

603A 

BD 

lE 

60 

48 


LDA 

ZIFFl,X 


603D 

8D 

C3 

61 

49 


STA 

FAK2 


6040 

BD 

24 

60 

50 


LDA 

ZIFF2,X 


6043 

8D 

C4 

61 

51 


STA 

FAK3 


6046 

8D 

C5 

61 

52 


STA 

FAK4 


6049 

BD 

2A 

60 

53 


LDA 

ZIFF3,X 


604C 

8D 

C7 

61 

54 


STA 

FAK6 



55 * Zeiger im Original setzen 


PLAKAT 
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604F: A9 00 

56 


LDA 

*0 



6127: ED C4 61 

148 


SBC 

FAK3 



6051: 8D C8 61 

57 


STA 

ZEIGl 

;X-Koord. 


612A; CD C8 61 

149 


CMP 

ZEIGl 



6054: 8D C9 61 

58 


STA 

ZEIG2 

;Y-Koord. 


612D: F0 15 

150 


BEQ 

NZ 




59 

* Zeiger 

im Teilbild setzen 


612F: AD C9 61 

151 


LDA 

ZEIG2 



6057: A9 00 

60 

WSTART 

LDA 

#0 

;Warmstart 


6132: 38 

152 


SEC 




6059: 8D CA 61 

61 


STA 

ZEIG3 

;X-Koord. 


6133: ED C7 61 

153 


SBC 

FAK6 



605C: 8D CB 61 

62 


STA 

ZEIG4 

;Y-Koord. 


6136: 8D C9 61 

154 


STA 

ZEIG2 



605F: AC C9 61 

63 

WEITERl 

LDY 

ZEIG2 



6139: AD C8 61 

155 


LDA 

ZEIGl 



6062: AD D0 61 

64 


LDA 

TAB2L 



613C: 18 

156 


CLC 




6065: 85 54 

65 


STA 

TAB2LZ 

;Pointer 


613D: 6D C4 61 

157 


ADC 

FAK3 

;zurück 


6067; AD Dl 61 

66 


LDA 

TAB2L+1 

;in die 


6140: 8D C8 61 

158 


STA 

ZEIGl 

; nach 


606A: 85 55 

67 


STA 

TAB2LZ+1 

;Zeropage 


6143: 60 

159 


RTS 


.■BASIC 


606C: AD D2 61 

68 


LDA 

TAB2H 

;legen 


6144: A9 00 

160 

NZ 

LDA 

#0 



606F: 85 56 

69 


STA 

TAB2HZ 



6146: 8D CS 61 

161 


STA 

ZEIGl 



6071: AD D3 61 

70 


LDA 

TAB2H+1 



6149: AD C9 61 

162 


LDA 

ZEIG2 



6074: 85 57 

71 


STA 

TAB2HZ+1 



614C: C9 C0 

163 


CMP 

#192 



6076; AD CC 61 

72 


LDA 

TABIL 



614E: D0 0A 

164 


BNE 

BACK2 



6079: 85 50 

73 


STA 

TAB1LZ 



6150: 20 3A FF 

165 


JSR 

BELL 



607B: AD CD 61 

74 


LDA 

TABlL+1 



6153: 20 3A FF 

166 


JSR 

BELL 



607E; 85 51 

75 


STA 

TABlLZ+1 



6156: A9 00 

167 


LDA 

#0 



6080: AD CE 61 

76 


LDA 

TABIH 



6158: 85 FE 

168 


STA 

STATUS 



6083: 85 52 

77 


STA 

TABIHZ 



615A: 60 

169 

BACK2 

RTS 


;fertig 


6085: AD CF 61 

78 


LDA 

TABlH+1 



615B: A2 28 

170 

BITS 

LDX 

*40 



6088: 85 53 

79 


STA 

TABlHZ+1 



615D: A9 00 

171 


LDA 

#0 



608A: Bl 50 

80 


LDA 

(TABILZ),Y 



615F: 9D D4 61 

172 

SCHLEI7 

STA 

ARRAY,X 

;Array 


608C: 85 F9 

81 


STA 

TAB 

: Zeilen- 


6162: CA 

173 


DEX 


;löschen 


608E: Bl 52 

82 


LDA 

(TABIHZ).Y 

;adresse 


6163: D0 FA 

174 


BNE 

SCHLEI7 



6090; 85 FA 

83 


STA 

TAB+1 

;(Original) 


6165: 9D D4 61 

175 


STA 

ARRAY.X 



6092: AC C8 61 

84 


LDY 

ZEIGl 



6168; 86 ED 

176 


STX 

Z4 

;Byte- 


6095: Bl F9 

85 


LDA 

(TAB),Y 



616A: A2 07 

177 


LDX 

#7 

;Zähler 


6097: 85 FD 

86 


STA 

MEM 



616C: 86 CE 

178 


STX 

ZW2 



6099: 20 5B 61 

87 


JSR 

BITS 

;Bit- 


616E: 86 EC 

179 


STX 

Z3 



609C: AD C3 61 

88 


LDA 

FAK2 

;Zerlegung 


6170: 86 EB 

180 


STX 

ZI 

:Bit vom 


609F: 8D C6 61 

89 


STA 

FAK5 



6172: AD C2 61 

181 

SCHLEI4 

LDA 

FAKl 

;Bild 


60A2: AC CB 61 

90 

SCHLEI3 

LDY 

ZEIG4 



6175: 85 EF 

182 


STA 

ZWl 



60A5: Bl 54 

91 


LDA 

(TAB2LZ),Y 



6177: A5 FD 

183 


LDA 

MEM 



60A7: 85 FB 

92 


STA 

TABl 



6179: 0A 

184 


ASL 


:Bit 7 raus 


60A9: Bl 56 

93 


LDA 

(TAB2HZ) ,Y 



617A; 0A 

185 

SCHLEI41 

ASL 




60AB: 85 FC 

94 


STA 

TAB1+1 



617B; CA 

186 


DEX 




60AD: AD C2 61 

95 


LDA 

FAKl 



617C: D0 FC 

187 


BNE 

SCHLEI41 



60B0: 85 58 

96 


STA 

FAKZ 



617E: B0 05 

188 


BCS 

CARRY 



60B2: A2 00 

97 


LDX 

#0 



6180: A9 00 

189 


LDA 

#0 



60B4; AC CA 61 

98 


LDY 

ZEIG3 

;Ausgabe 


6182: 4C 87 61 

190 


JMP 

WEITER2 



60B7: BD D4 61 

99 

SCHLEI2 

LDA 

ARRAY,X 

; des 


6185: A9 01 

191 

CARRY 

LDA 

#1 



60BA: 91 FB 

100 


STA 

(TABl),Y 

;Arrays 


6187: 85 EE 

192 

WEITER2 

STA 

ZW 



60BC: E8 

101 


INX 


; auf 


6189: A4 EC 

193 


LDY 

Z3 



60BD: C8 

102 


INY 


;Bild- 


618B: A5 EE 

194 

SCHLEI6 

LDA 

ZW 



60BE: C6 58 

103 


DEC 

FAKZ 

;schirm 


618D; C0 07 

195 

SCHLEI5 

CPY 

#7 



60C0: D0 F5 

104 


BNE 

SCHLEI2 



618F: F0 05 

196 


BEQ 

NOROL 



60C2: EE CB 61 

105 


INC 

ZEIG4 



6191: 0A 

197 


ASL 


;schieben 


60C5; CE C6 61 

106 


DEC 

FAK5 



6192: C8 

198 


INY 




60C8; D0 D8 

107 


BNE 

SCHLEI3 



6193: 4C 8D 61 

199 


JMP 

SCHLEI5 



60CA: AD CB 61 

108 


LDA 

ZEIG4 



6196: A6 ED 

200 

NOROL 

LDX 

Z4 



60CD: C9 C0 

109 


CMP 

=frl92 

; auf 


6198: 18 

201 


CLC 




60CF: D0 04 

110 


BNE 

WEITER 

; Ende 


6199: 7D D4 61 

202 


ADC 

ARRAY,X 

;addieren 


60D1: C0 28 

111 


CPY 

#$28 

;prüfen 


619C: 9D D4 61 

203 


STA 

ARRAY,X 

:speichern 


60D3: F0 4C 

112 


BEQ 

SCHLUSS 



619F: C6 EC 

204 


DEC 

Z3 



60D5: 38 

113 

WEITER 

SEC 




61A1: F0 0E 

205 


BEQ 

NEXTX 



60D6; ED C3 61 

114 


SBC 

FAK2 

;Zeiger 


61A3: A4 EC 

206 

ZURUECK 

LDY 

Z3 



60D9: 8D CB 61 

115 


STA 

ZEIG4 

; neu 


61A5: C6 EF 

207 


DEC 

ZWl 



60DC: AD CA 61 

116 


LDA 

ZEIG3 

;setzen 


61A7: D0 E2 

208 


BNE 

SCHLEI6 



60DF: 18 

117 


CLC 




61A9; A6 EB 

209 


LDX 

ZI 



60E0: 6D C2 61 

118 


ADC 

FAKl 



61AB: CA 

210 


DEX 




60E3: C9 28 

119 


CMP 

#$28 



61AC: 86 EB 

211 


STX 

ZI 



60E5: F0 09 

120 


BEQ 

NULL 



61AE: D0 C2 

212 


BNE 

SCHLEI4 



60E7: 8D CA 61 

121 

BACK 

STA 

ZEIG3 



61B0: 60 

213 

ENDE3 

RTS 


:fertig 


60EA: 20 FF 60 

122 


JSR 

ADD 



61B1: E6 ED 

214 

NEXTX 

INC 

Z4 



60ED: 4C 5F 60 

123 


JMP 

WEITERl 



61B3: A9 07 

215 


LDA 

#7 



60F0: AD CB 61 

124 

NULL 

LDA 

ZEIG4 



61B5: 85 EC 

216 


STA 

Z3 



60F3: 18 

125 


CLC 




61B7: A4 ED 

217 


LDY 

Z4 



60F4: 6D C3 61 

126 


ADC 

FAK2 



61B9: 88 

218 


DEY 




60F7: SD CB 61 

127 


STA 

ZEIG4 



61BA: CC C2 61 

219 


CPY 

FAKl 



60FA: A9 00 

128 


LDA 

#0 



61BD: F0 Fl 

220 


BEQ 

ENDE3 



60FC: 4C E7 60 

129 


JMP 

BACK 



61BF: 4C A3 61 

221 


JMP 

ZURUECK 



60FF: AE C8 61 

130 

ADD 

LDX 

ZEIGl 



61C2: 00 

222 

FAKl 

HEX 

00 

:Programm- 


6102: E8 

131 


INX 




61C3: 00 

223 

FAK2 

HEX 

00 

:Variablen 


6103: CE C5 61 

132 


DEC 

FAK4 



61C4: 00 

224 

FAK3 

HEX 

00 



6106: F0 0A 

133 


BEQ 

ZEILE 



61C5: 00 

225 

FAK4 

HEX 

00 



6108: 8E C8 61 

134 

BACKl 

STX 

ZEIGl 



61C6: 00 

226 

FAK5 

HEX 

00 



610B: 60 

135 


RTS 




61C7: 00 

227 

FAK6 

HEX 

00 



610C; EE C9 61 

136 

PRUEF 

INC 

ZEIG2 



61C8: 00 

228 

ZEIGl 

HEX 

00 



610F; 4C 08 61 

137 


JMP 

BACKl 



61C9: 00 

229 

ZEIG2 

HEX 

00 



6112: 8A 

138 

ZEILE 

TXA 




61CA: 00 

230 

ZEIG3 

HEX 

00 



6113: 38 

139 


SEC 




61CB: 00 

231 

ZEIG4 

HEX 

00 



6114: ED C4^61 

140 


SBC 

FAK3 



61CC: 00 62 

232 

TABIL 

HEX 

0062 

;Tabellen- 


6117: AA 

141 


TAX 




61CE; 00 63 

233 

TABIH 

HEX 

0063 

;zeiger 


6118: AD C4 61 

142 


LDA 

FAK3 



61D0: 00 64 

234 

TAB2L 

HEX 

0064 



611B: 8D C5 61 

143 


STA 

FAK4 



61D2: 00 65 

235 

TAB2H 

HEX 

0065 



611E: 4C 0C 61 

144 


JMP 

PRUEF 



61D4: 00 

236 

ARRAY 

HEX 

00 



6121: 20 FF 60 

145 

SCHLUSS 

JSR 

ADD 










6124: A9 28 

146 


LDA 

#$28 









fl 

6126: 38 

147 


SEC 




468 Bytes 
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Kwn^BW(IBKS|APPLBWaRKS 



SYSTEMAUFBAU-DATENBANK 

SCHREIBTISCHMANAGER-RECHENBLATT 


V.BOrTA / CHR. LANGE /K.ZIMMERMAr#! 


Band 1: 



TEXTBEARBEITUNG ACCESS II - DATENFERN - 
ÜBERTRAGUNG ■ SYSTEMINFORMATIONEN 


V^BOTTA / CHR. LANGE / K. ZMMERMANN 


Band 2: 


Einleitung 
Was Sie benötigen 
Starten von APPLE WORKS 
Der Schrcibtischmanager 
Datenbank 
Rechenblatt 
Al Anschluß der Festplatte ProFile 
A2 APPLE II Easy Pieces Referenz 
A3 Druckeranpassungen 
A4 DOS 3,3 Konvertierungen 
A5 APPLE WORKS Disketten sichern/ 
kopieren 

A6 Hilfsfunktionen nach Programmteilen 


1. 

2 . 

3. 

4. 

5, 

6, 
Al 
A7 
A8 
A9 


L 


Einleitung 
Was Sie benötigen 
Starten von APPLE WORKS 
Der Schreibtischmanager 
Textbearbeitung 
Datenfernübertragung 
. A6 wie Band 1. dazu: 
Modemkabel für APPLE Ile, IIc 
SuperSerialCard: Einstellung 
ASCII-Textdateien aus anderen 
Dateiformaten für ACCESS II 
AlO DATEX-P20 F Verzeichnis 
All Deutsche/Englische Menübilder 
von ACCESS II 


Von Botta/Lange/Zimmermann je 264 Seiten, 
Softcover, je DM 49,- 



APPLE WORKS auf APPLE II, Ile, IIc: 

verwandelt APPLE-II-Computer in einen Elektroni¬ 
schen Schreibtischmanager mit: 

Texterstellunq ... Edition, Briefarchiv, Ausdruck etc 
Datenarchivierung ... Kontoführung, Buchhaltung 
etc. Formblattkalkulation .. .Bilanzen, VisiCalc- 
Dateien etc. Datenfernübertragung .. .Mailbox, 
Rechnerkopplung etc. 

• ist ein erfolgreicheres Integrationspaket als LOTUS 
auf IBM PC! 

• ist auf 1 MByte Speichererweiterungen Ihres 
APPLE 11 vorbereitet! 

• erschließt Ihnen die Zukunftstechnik MAILBOX! 

• ist ebenso einfach zu bedienen wie APPLE 
WRITER: 

Kein Befehlsstudium ... Einfachste Menü¬ 
führung ... Sofortige Anwendbarkeit 


tc-wi’s APPLE WORKS SYSTEMBÜCHER 1+2 
zeigen Ihnen: 

• Sämtliche APPLE WORKS Funktionen an Beispie¬ 
len aus der Wirtschaft 

• Das Wechseln zwischen Text/Rechenblatt/Daten- 
archiv/Dfü 

• Umfassende Systeminformationen zu Dateikonver¬ 
tierung, Druckeranpassung etc. 


te-wi Verlag GmbH 
Thco-Prosel-Weg 1 
8000 München 40 


tsili 




Weitere te-wi-Bücher 



Das 

APPLE II/II+/IIe/IIc-Handbuch 

(L. Poole) 

Erst mit hülfe dieses Leitfadens werden Sie 
Ihren Apple II erfolgreich einsetzen, denn 
Text und Bildmaterial gehen weit über das 
hinaus, was herstellerseitig an Literatur 
angeboten wird. 

Neu überarbeitet und jetzt um die spezifi¬ 
schen Eigenheiten der Modelle II e und II c 
erweitert 472 Seiten, Softcover, DM 66,- 



LOGO- 

Jeder kann programmieren 

(Daniel Watt) 

Buch des Jahres in den U SA. Für die 
Computer APPLE II, C-64, IBM PC, 
ATARI bis 520 ST, TI-99 und Schneider 
CPCs. 

Hochwertiges Textbuch für Logo-Kurse 
zu Hause und im Lehrbereich, 

384 Seiten, A4. DM 59,- 




AFPLE 


buitbifrUHn 


Q 

H Reparaturanleitung Computer: ^ 

I Apple II, IIplus 

I Einzigartige Serviceunterlage für Reparatu 
I ren und Entwicklungsarbeiten am Apple II. 
Enthält Schaltpläne. Bauteile- und Ver- 
gleichstypenliste; Prüfpunkte mit Oszillo- 
3 grammen der Signalformen. Logiktabellen, 
I Spannungsangaben; schnelle Servicetests; 
■ Anleitung zur systematischen Fehlersuche. 
Sin A4-Mappe, DM 29.80 


Noch im Programm: 

Computer für Kinder, APPLE II, DM 29,80 
6502 Programmieren in Assembler, DM 59,- 
Umweltdynamik (Prospekt anfordern), DM 66,- 


(NEU) 


Macintosh Programmierhandbuch mit MSBASIC 2.0 
(Ende ’85),DM 59,- 

Einführung in die Mikrocomputer-Technik, DM 66,- 
M68000-Familie, 2 Bände, DM 79,- und DM 69,- 


Erstes deutsches Referenzwerk sämt¬ 
licher Befehle und Systemroutinen von 
Apple II, IIplus, lle 
APPLE II PASCAL 

Betriebssystem, 272 S.. DM 49,- 

Sprache. 216 S., DM 39.- 

Pascal L2 Addendum, 112 S,. DM 36.- 

Grundlagenbuch, Bestseller 
APPLE II PASCAL. 

Eine praktische Anleitung, 

544 s., DM 59.- 


Applc Maschinensprache 

Für BASIC-Programmierer der einfachste 
Zugang zur Muttersprache des APPLE. Wesent¬ 
lich schnellere Maschinenprogramme, direkte 
Manipulation des Mikroprozessors 6502 im 
APPLE - als Brücke dorthin benötigt dieses 
Buch nur die drei BASIC-Befehle POKE, 

CALL, PEEK. D. Inman/K, Inman. DM 49,- 


APPLE II - Bewegte 3D-Graphik 

(Phil Cohen) 

Selbstentworfene Graphiken und Dia¬ 
gramme - animiert oder als Standbilder - 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch. 

200 Seiten, Softcover. DM 49.- 


APPLE 


^SCAL 


MASCHINEM 

SPRACHE 






















I 


Disk-Chirurg 

Ein Programm zur Überprüfung 
schadhafter Diskettensektoren 


I 


i 


von Wolf-J. Faust 


Sind Sie sicher, daß Ihre Daten noch lange 
auf der Diskette erhalten bleiben? DISK 
.CHIRURG überprüft für Sie die Diskette 
auf dem Apple II. Sind die Daten nicht 
mehr sicher auf der Diskette gespeichert, 
können sie repariert werden. 

Die Funktionsweise 

Die Funktionsweise des Programms ist re- 
lativ einfach. Eine Diskette besteht aus 35 
($00-$22) Spuren mit jeweils 16 ($00- 
$0F) Sektoren. Soll ein Sektor auf einer 
Spur eingelesen werden, so wird der 
Schreib/Lesekopf zu der gewünschten 
Spur gefahren. Dann liest das DOS nach¬ 
einander alle Sektoren, bis der gewünsch¬ 
te Sektor gefunden ist. Die Anzahl der 
gelesenen Sektoren wird von dem Pro¬ 
gramm oben am Bildschirm mit der Mel¬ 
dung „GELESENE SEKTOREN“ ange¬ 
zeigt (hexadezimal). Werden mehr als $0F 
Sektoren benötigt, so bedeutet dies, daß 
der Sektor beim ersten Umlauf der Spur 
nicht gelesen werden konnte. Ist der Sek¬ 
tor nach dem dritten Versuch immer noch 
nicht eingelesen (GELESENE SEKTOREN 
= $30), wird der Schreib/Lesekopf des 
Diskettenlaufwerks hörbar zur Spur Null 
gefahren, um wiederum dreimal zu versu¬ 
chen, den Sektor einzulesen. Konnte der 
Sektor nach diesem sechsten Mal immer 
noch nicht richtig eingelesen werden, so 
wird ein „I/O ERROR" gemeldet. 

Wer mehr zu diesem Thema wissen 
möchte, kann in dem Buch „All about 
DOS“ von A.P.P.L.E. den Artikel „Disk 
Error Checking" von A. Rose nachlesen. 
Dort steht auch das kleine von mir verwen¬ 
dete Programm zum Umschreiben der 
DOS-Adressen und Anzeigen der Spur 
und der gelesenen Sektoren. 

Mein Programm verwendet darüber hinaus 
die RWTS-Routine des DOS, um die Sek¬ 
toren nacheinander einzulesen. Da die 


RWTS-Routine meist bei den verschiede¬ 
nen DOS-Versionen gleich ist, läuft das 
Programm im allgemeinen auch mit ge- 
patchtem DOS. 

Sicherheitshalber sollte es jedoch zu¬ 
nächst an einer unwichtigen Diskette gete¬ 
stet werden, indem das Laufwerk während 
des Lesens kurz geöffnet wird, um einen 
Lesefehler vorzutäuschen. 

Die Bedienung 

Das Programm ist vollkommen menüge¬ 
steuert: 

D - Schaltet das Laufwerk um (Drive 1 
nach Drive 2 oder umgekehrt). 

R-Mit Hilfe der Taste „R“ kann „REPA¬ 
RATUR“ ein- oder ausgeschaltet werden. 
Bei eingeschalteter „REPARATUR“ wer¬ 
den nicht mehr sehr gut erhaltene Daten 
repariert, d.h. sie werden erneut geschrie¬ 
ben. Ist „REPARATUR“ ausgeschaltet, so 
wird nur die Diskette überprüft. 

M - Diese Taste ist nur von Bedeutung, 
wenn die Option „REPARATUR“ einge¬ 
schaltet ist. Ist die „MELDUNG“ gewählt 
(AN), so wird sicherheitshalber gefragt, ob 
die Diskette tatsächlich repariert werden 
soll. Im anderen Fall wird der Sektor auto¬ 
matisch neu geschrieben. 

S - Wird die Taste „S“ gedrückt, muß 
zunächst die erste zu prüfende Spur ein¬ 
gegeben werden. Dies geschieht mit Hilfe 
der Cursor-Tasten. Der Unks-Pfeil verklei¬ 
nert und der Rechts-Pfeil vergrößert die 
Spur. Die Eingabe wird mit Return been¬ 
det. Danach wird nach der letzten Spur 
gefragt. Auch hier wird wieder die Eingabe 
mit den Cursor-Tasten und Return gesteu¬ 
ert. Beim Start des Programms werden die 
Werte zur Prüfung der ganzen Diskette 
eingesetzt (Spur $00-$22). 

Leertaste - Mit der Leertaste starten Sie 
die Untersuchung der Diskette. 


ESC - Die Escape-Taste beendet jede 
Eingabe oder die Ausführung des Pro¬ 
gramms und Sie kehren zu dem Menü 
zurück. Beim Drücken der Escape-Taste 
in dem Menü wird neu gebootet (da das 
DOS gepatcht wurde). 


Meldungen 

„GELESENE SEKTOREN- Anzahl der 
gelesenen Sektoren (hexadezimal), bis 
der gewünschte Sektor richtig eingelesen 
wurde. 

„LESE SPUR" - Anzeige der zuletzt gele¬ 
senen Spur (hexadezimal). 

" - Der Sektor ist noch gut erhalten. 

„1" - Der Sektor konnte bei dem ersten 
Versuch nicht eingelesen werden. Sie 
sollten die Diskette reparieren lassen. 

„2“ - Der Sektor konnte erst nach dem 
dritten Versuch eingelesen werden. Die 
Diskette ist fast zerstört. Lassen Sie die 
Diskette unbedingt reparieren! 

„S“ - Fehler bei der Diskettenstation: Ir¬ 
gend etwas Ungewöhnliches ist gesche¬ 
hen, oder der Sektor konnte nach dem 
sechsten Versuch nicht gelesen werden. 

„ W“ - Die Diskette kann nicht repariert 
werden, da sie schreibgeschützt ist. Bitte 
entfernen Sie den Schreibschutz. 

„ U" - Lesefehler: Nach sechs Versuchen 
konnte der Sektor nicht eingelesen 
werden. 

Anm. d. Red.: Das nochmalige Überschrei¬ 
ben eines Sektors schafft nicht in jedem 
Fall Abhilfe gegen Datenverlust (der häu¬ 
figste Grund von Diskettenausfällen liegt 
an der Abnutzung der Magnetschicht durch 
Abrieb). Wird der Zustand eines Sektors 
beim Überprüfen der Diskette mit „1" oder 
„2“ quittiert, sollte daher eine Kopie erstellt 
werden (z.B. mit COPYA oder QUICK- 
COPY aus Peeker, Heft 1 /2-85). 
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MCIXT 16 PC 


^ dos 7.7 


Kurzhinweise 


1. Zweck: 

Überprüfung aller Sektoren einer Diskette 

2. Konfiguration 
II+, Ile oder IIo ■ 

DOS 3.3 

3. Test: 

RUN DISK,CHIRURG 

4. Samraeldisk: 

DISK,CHIRURG 

{Applesoft-Prograrara} 


DISK.CHIRÜRG 

100 PHINT CHRS l2i|:A “ 1:BS = '"AN - 34 

110 DATA 163,32 - I4l. 201.1S9,169.62,141.202. IBS .169,3. |4l. 203. 
ISS,169.122,141.110,1S0.163.3.141.111.190,169.1,133.34. 
162,0.189,43.3.157.0.4.232,224.38.203,245,96,199.197,204, 
197,211.197 

120 DATA £06.197.160.211.197.£05,212,207,210.197,206,188.160* 
160,160,160.160,160.160.204.197.211,197.160.211,20S.215. 
£10.189.160.160.160.160,168.43*56.237.120. B. 72.74,74,74 
74.9,176.201*166,144 

130 DATA 2,105,6*141.19.4.104.41,15.9,176.201,106.144,2*106, 
6,141.20.4*206.ia0.6.86.72.74.72.74.74,74,74,8.176,201. 
186,144,£.105,6.141,36.4,104.41.15.9,176.201.186 
140 DATA 144.2.105.6*141,37,4,104,76,142.190,1,96.1,0.18.6. 
175,3,0,80,0.0.1*0*0.86,2.0.1,239,216.169*5,160.156*33, 
217,3*144.1*96.169,0.141,171.3,96 
150 RKSl'ORE : FÜR I = 768 TO 962: READ II: POKE I.Il: NEXT 
160 HOME : VI AE 3: INVERSE : PRINT 

00000000000000001111111111111111222 -: PRINT 
0123456709A&CDeF01234S97Ö9ABCDEF012 'VAS = 

''0123456789ABCDEF" 

170 FOR D - 5 TO 20i VTAB D:E ^ ASC { MIO® (AS.D - 4.11)! 

PRINT OHRS [Ela HTAB 37: PRINT CHRS tE): HEXT 
180 VTAB t: HTAB 12: PRim' "DlSK-CHIRURC”NORMAL : PRINT 
: HTAB 12: PRlHT -WOLF'-J. FADST^V HTAE 12: PRINT 
"ODENWALDSCHULE": HTAÖ 12: PRINT "6143 HEPPENHEIM 4"; 
CALL 76a 

180 VTAB 22: PRINT INVERSE : PRINT "0";: NORMAL : 

PRINT *')ISK= PEEK {928);*' INVERSE ; PRINT "R";: 

NORMAL ; PRINT J EPARATUR=" J B$;" V'‘*- INVERSE : PRINT 

"H":: NORMAL 

200 PRINT '■)ELOUNCJ=":0$;"t'^: INVERSE : PRINT " NORMAL 
; PRINT ")-^TART INVERSE : PRINT "8";: NORIUL : 

PRINT ")PUR V*-. INVERSE i PRINT "ESC':: 

NOBJilAL : PRlfTT STQP'V POKE - 16368.0 
210 D - PEEK i - 16364): IF Ö < 127 THEN 210 
220 POKE - 16368.0: IF □ = 165 THEN POKE 34.0 HOME ; CALL 
5068S; RND 


230 IF D = 196 THEN D = PEEK (928): POKE 928,1: IF D = 1 
THEN POKE 928,2 

240 IF D - 210 THEN A$ = B$: B$ - "AN : IF A$ - "AN " THEN 
B$ = "AUS" 

250 IF D = 205 THEN A$ = C$:C$ - "AN IF A$ - "AN " THEN 
C$ = "AUS" 

260 IF D = 160 THEN 290 
270 IF D = 211 THEN 400 
280 GOTO 190 

290 VTAB 8: FOR D = 1 TO 7: HTAB 12: PRINT SPC( 20): PRINT 
: NEXT : GOSUB 590: PRINT "DISKETTE IN LAUFWERK PEEK 
(928);" EINLEGEN": POKE - 16368,0 
300 IF PEEK ( - 16384) < 127 THEN 300 

310 IF PEEK ( - 16384) - 155 THEN 540 

320 GOSUB 570: POKE - 16368,0: FOR F = B TO C: FOR G = 0 TO 
15: IF PEEK ( - 16384) = 155 THEN 540 
330 POKE 930,F: POKE 931,G: POKE 938,1: POKE 939,0: CALL 
947: VTAB G + 5: HTAB F + 2: ON PEEK (939) / 16 + 1 
GOTO 340,500,510,510,510,510,510,510,520 
340 D = PEEK (1043) - 176: IF D = 0 OR D = - 16 THEN PRINT 
GOTO 530 

350 INVERSE : PRINT D: NORMAL : IF B$ - "AUS" THEN 530 

360 IF C$ - "AN " THEN GOSUB 590: PRINT "SOLL ICH 

REPARIEREN (J/N) ? N";: CALL 64528: POKE - 16368,0: GET 
A$: GOSUB 570: IF NOT (A$ = "J") THEN 530 
370 POKE 938,2: CALL 947: POKE 938,1: VTAB G + 5: HTAB F + 
2: ON PEEK (939) / 16 + 1 GOTO 
380,500,510,510,510,510,510,510,520 
380 IF PEEK (1043) - 176 < > D THEN 340 
390 GOTO 530 

400 GOSUB 590: PRINT "VON SPUR ->";:D = B:H = 0: GOSUB 
410;B - D: HTAB 1: PRINT "ZU ";:D = C:H = B: GOSUB 
410:0 - D: GOTO 160 

410 INVERSE :I = D: IF H > D THEN D = H 

420 HTAB 12: PRINT INT (D / 16);:E = D - INT (D / 16) * 16 
+176: IF E > 185 THEN E - E + 7 
430 PRINT CHR$ (E);: POKE - 16368,0 
440 E = PEEK ( - 16384): IF E < 127 THEN 440 
450 IF E = 155 THEN D = E: NORMAL : GOTO 160 
460 IF E - 149 THEN D=D+1: IFD=35 THEN D = 34 
470 IF E = 136 THEN D=D-1: IFD<H THEN D - H 
480 IF E - 141 THEN NORMAL : RETURN 
490 GOTO 420 

500 INVERSE : PRINT "W": NORMAL : GOTO 530 
510 INVERSE : PRINT "S": NORMAL : GOTO 530 
520 INVERSE : PRINT "U": NORMAL 
530 NEXT ; NEXT 

540 GOSUB 590: PRINT "TASTE DRUECKEN, UM WEITERZUMACHEN!": 
POKE - 16368,0 

550 IF PEEK ( - 16384) < 127 THEN 550 
560 GOTO 160 

570 GOSUB 590: INVERSE : PRINT NORMAL : PRINT "=IN 

ORDNUNG INVERSE : PRINT "2,3";: NORMAL : PRINT 

"-FAST DEFEKT ";: INVERSE : PRINT "S";: NORMAL 
580 PRINT "-FEHLER ";: INVERSE : PRINT "W";: NORMAL : PRINT 
" = SCHREIBGESCHUETZT ";: INVERSE : PRINT "U";: 
NORMAL ; PRINT " - UNLESBAR": RETURN 
590 VTAB 21: HTAB 1: PRINT SPC( 120);: VTAB 22: RETURN 



XT16PC 

16 Bit 8088 Rechner 
vollständig Kompatibel, 
ausgerüstet mit: 
Colorcard, 

256 RAM 

Floppy Controller, 

1 Drive, 360 K, 
deutsche Tastatur, 

130 W Netzteil 

XT16PC 




FLÜSTER-FLOPPY 

CHINON F-051 A 

mit Kabel 379 [ 


3,5" Pana. JU 363 479 DM 

135 tpi 2x80 track 1 MByte 

TEAC FD55B 379 DM I 


'IS tpi 2 X 40 track 500 KByte 

TEAC FD55F 449 DM I 


Bi 11 i g vers ijt> n!!! 
CHINON A-Il 

mit Kabel und Gehäuse 


mit 6 MByte Winchester 

XT16WLC 4499 DM > > 

Auf alte Geräte 6 Monat© GeranK© ^ Ärderungen. die technischen Verbesserungen dienen, vorbehaiten ■ Lieferbedingungen auf Anfrage ■ Lieferung solange Vorrat reicht - 


345 DM 


96 tpi 2 X 80 track 1 MByte 

SANYO BFT 540 399 DM 

48 tpi 2x40 track 500 KByte 

SANYO BFT580 449 DM 

96 tpi 2x80 track 1 MByte 

CHINON F-502 399 DM 

48 tpi 2x40 track 500 KByte 

REMEXRFD480 329 DM 

48 tpi 2x40 track 500 KByte 

Apple AFD55A 399 DM 

mit Kabel und Gehäuse 

STATIONEN 

2x8‘'SSDD KIT 1399 DM 

2xB‘‘DSDD KIT 1999 DMy 


BESPRINT80/80I 


• MX 80 + Graftrax Compatible 

• 100Zeichen/9x11 Matrix,62eichensätze 

• Parallel + RS232, Einzelblatt u. Traktor 
[für IBM angepaßt 749 DM 699 DM 


= G Postfach 200401 
SM J.-W.-Lindlar-Straße8 
■ B 5060 Bergisch Gladbach 2 
• H Tel.(O2202)31007-Tx.8873518 
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Verkauf Software 


Astrologie: Berechn, u. Graphik. 
Info n. voreins. 1 DM in Briefm., 
C. Landscheidt, Im Dorfe 14, 
D-2804 Lilienthal. 


Computer-Literatur: 

Liste bei: Lindemanns 
Buchhandi. kostenlos. 
Nadlerstr. 10, 7000 Stuttgart-1 


- - STOCKMASTER II- 

Das Apple-Programm für echte 
Börsengewinne. Diskette 485,- 
DM. Beschreibung P10 anfordern 
bei Töngi, COMPUTER-PRAXIS, 
Aspeltstr. 4, D-6500 Mainz 1 

Apple: AW-ll-Manual (dtsch) 

+ WP., VS = 25 DM, Privat-Datei 
(463 Sätze/Disk) VS = 80 DM, 
dBASE Privat-Datei VS = 80 DM, 
Inventur-Prog. für Steinmetze DM 
250,- Manuale + WS + MM, EZ- 
Draw bei; 08461 /8453/10 61 

AP 22: Jetzt TURBO-PAS- 
CAL-Grafik. Include-File für Ihre 
Programme. Info frei, Prgm. auf 
Disk DM 70. Rüter, Rahdener Str. 
65, 4955 Hille 

MATHE-STAR mathemati¬ 
scher Editor für ll/lle: 4 freidefi¬ 
nierbare Zeichensätze; Blockkom¬ 
mandos; viele Spezialbefehle. Pr; 
198,-, Manfred Albracht, Knospen¬ 
weg 2, 5010 Bergheim, 

T. 02271/94504 

Hochwertige Astrologie- 
Programme für Apple Il/Plotter- 
Routinen für HP, EPSON HI-80, 
WATANABE, u.a. Alles weitere bei 
ROJASOFT, Postfach 4461, 
CH-8022 Zürich oder unter 
T. 0041-1-241 3337 

Private Kleinanzeigen: 
1 Druckzeile ä 32 Buch¬ 
staben nur DM 
zuzügl. ges. MwSt. 

Für Ihren Apple U+ mit 80 
Zeichen ^ Fakturierung! Pro¬ 
gramm 398,- Demodisk 38,- DM. 
Infos m. Rückumschlag. SSG Soft¬ 
ware Service Gruschke, Königstr. 
53, 1000 Berlin 42 


Apple Freunde, tolle Program¬ 
me aus vielen Gebieten! Schach! 
Public Domain Software, jede Vo¬ 
lume nur 22,- DM! Und Lehrpro¬ 
gramme! Gratisinfo; Fa. Waltraud 
Muhle, Waldwinkel 3,2105 Seeve¬ 
tal 3 

PIRATE DEFENCE 2.0 Ko¬ 
pierschutz. Die Antwort auf die 
neuen Nibble Kopierer wie: COPY 
II + 5.4, EDD, LOCKSMITH 5.0,... 
Ab jetzt neben DOS 3.3 auch für 
ProDOS und DIVERSIDOS mit 
vielen Utilities. Info (50 Pf.) bei: 
Chr. Bregler, Tulpenstraße 2, 7519 
Eppingen. Händleranfragen er¬ 
wünscht. 


fig-FORTH —DM 15,00 
Assemblerlisting f. APPLE DM 15 
FORTH auf Disk f. APPLE DM 45 
Info kostenlos — C. Schmidt, Bun- 
gestr. 8, 3500 Kassel 


☆☆☆☆☆☆☆☆ WARGAMES 

Die Besten von SSI für APPLE C 
64 ATARI. 

Info gegen 80 Pfg. RP 

Computer-Service Th. Müller 
Postfach 2526 
7600 Offenburg 

Apple II: Fahrschul-Lern- 
prog. 32 Fragebögen, T. 071 51 / 
61584 

Apple Works orig. Deutsch 

für llc und Ile DM 480,- 
T. 05041/1688 


iterkauf Hardware 


BASIS-108 (VERS.A4)-2 Sie- 
mens-F122 128KB-RAM-Apple 
-I- BASIS im ROM. Incl. Software 
3000,- DM - 0 63 52/87 65. 


TASTATUR DECODER für ll-k 
AUTO REPEAT, groß/kleinsch. 
Umlaute, 8 Cursor- & 18 Funk¬ 
tionstasten. nur DM 99,- 
T. 06074/96524 


2 TEAC FD-55F Laufwerke -F 
Ehring Controller (FDC4) unbe¬ 
nutzt 1250,- DM 
T. 061 81/87895 


Disk-Laufwerk für Apple, 40 

Tr., 100 % komp.-250,-DM Apple- 
Schaltnetzteil 7,5 A - 150 DM. 

T. 0451/895697 ab 16 Uhr. 


Deutsche Sprachausgabe 
für Apple II Testbericht in 
Peeker 9/85 - M. Bönig, Wup- 
perstr. 11, 4600 Dortmund 50, 
0231/71 8721 


Apple II -I- 64K, org., Disk, 
Contr., Z80, 80Z, Moni, Sep. Tast., 
Software, Lita, 2800 DM, 

T. 040/2790400 


Apple II (komp) 64 K, 2 Flop¬ 
py, Z80, 80Z, Monitor, Joyst, Ep¬ 
son RX 80F/T Grafikinterface, div. 
Software, auch einzeln VB, 

Tel. 02678/1001 


Org. Applesoft-ROM-CARD 

DM 120,- Netzteil 5A - neu - DM 
100,- H. Weise, Bergstr. 21, 
7148 Remseck 3 


Apple llc, Monitor, Mouse Ile 
Joystick, Disk llc, 6 Mon. alt 
VB 3700,- DM, T. 02557/485 ab 
18 h. 


Fernschreiberinterface am 

Gameport m. Programm DM 79,- 
P. Benner, Hubertusstr. 131,4150 
Krefeld 


Apple II kompatibles 64 K 

System 

- TEAC-Floppies; 160 K -F 640 K 

- Monitor (bernstein) mit 22 Mhz 

- FX-80 F/T -F Grappier Interface 

- CP/M, 80 Z-Karte, Erphi-Cont. 
Sehr günstiger Preis; 

051 21/22667 

MACINTOSH UMRÜSTUNG 

von 128K auf 512 K DM 857,- + 
MWST FAST. Electronic GmbH, 
Kapuziner Str. 20, 8000 München 
20, T. 089/777252 


Apple II komp. 64K CPM 80Z 2 

Disk Operator Tast. Monitor Soft¬ 
ware 1 Jahr alt - 0 23 71 /1 21 70 


Kontakte 


Verschiedenes 


APPLE REPARATUREN 

(auch compatible M-boards, z.B. 

Atlas, Area, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 -F 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali¬ 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 

Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag, 
aaa-electronic gmbh 

Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642aaad 


APPLE REPARATUREN 

SCHNELL -F GUT, Innerh. 1 Wo. 
ist Ihr Gerät zurück 800/400 KB 
31/2" MAC LW ab 880,- Gen. Mu- 
sician Interface macht aus Apple II 
electron. Piano + Synth. Acryl¬ 
diskbox f. 50 Dsks, Schl. 42,- 5.25 
Diskreiniggset m. Fluid 26,- 
PYRAMID Computer, Am Galgen¬ 
berg 15, 7800 Freiburg, 

T. 0761/66843 CPM llc! 


Hard- und Software für Apple- 
Computer gesucht. Wer schreibt 
gute Software? Auch Gebrauchtes 
angenehm. Zahle Höchstpreise! 
Suche noch Leute, die nebenbei 
verdienen wollen. Zuschriften 
Chiffre PI 005 


Umbau MAC von 128 K auf 

512 K mit Qualitätsmaterial. 
RAMS (150|lis) werden gesockelt- 
DM 848,- 

näheres: T. 0 61 31 /22 03 72 


Epson Interfaceumbau 

f. AWorks DM 20. Mahr, Waldak- 
ker 71, 73 Esslingen 

Wer hilft beim Anschluß einer 
Triumpf-Adler Typenrad-Schreib¬ 
maschine (SE 1010) an den Apple 
II? Heinrich J. Pohl, Weinstr. 54, 
6749 Klingenmünster 

Peeker und Peeker-Sammel- 
disketten alle Ausgaben zu ver¬ 
kaufen 

Tel. 0 63 71 /5 02 66 ab 18 Uhr 


MEMDOS Kartenversion ori¬ 
ginal neu, DM 398,- 
Tel. 0731/57516 


^ Grafik-Karte für Apple ll-F 
komp * Auflösung max. 512 x 
512 Preis 450 DM inkl. Softw. u. 
Manual. 0231/679422 


Suche Apple-Fan für Interes¬ 
senaustausch im Raum Backnang 
-Chiffre PI006 


Anzeigenschluß 
für Ausgabe 12/85 
ist am 25. 10. 85 

















Für Ihre Unterlagen 

Abonnement bestellt 

am:_ 

Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag, Postfach 102869, 
6900 Heidelberg 1 innerhalb von 7 
Tagen widerrufen kann. Zur Frist¬ 
wahrung genügt die rechtzeitige Ab¬ 
sendung des Widerrufs (Datum des 
Poststempels). 

peeker 

Leserservice 

Postfach 102869 
6900 Heidelberg 1 


Für Ihre Unterlagen 

Folgende Bücher bestellt: 


am:_ 

bei: 

peeker 

Versandbuchhandlung 
Postfach 102869 
6900 Heidelberg 1 


Für Ihre Unterlagen 

Folgende Disketten 
und Programme bestellt; 


am:_ 

bei: 

peeker 

Softwareabteilung 
Postfach 102869 
6900 Heidelberg 1 


Ja, ich möchte peeker abonnieren. 

Liefern Sie mir peeker ab Ausgabe.(1985 erscheinen 11 Ausgaben - 

1 Doppelnummer) zum Jahresbezugspreis von DM 72 - (Inland) incl. MwSt. Die 
Lieferung erfolgt frei Haus. Porto, Verpackung und Zustellgebühren übernimmt 
der Verlag. Der Jahresbezugspreis für das Ausland beträgt DM 72,- incl. MwSt., 
zzgl. DM 16,80 Versandspesen. 




Ich wünsche jährliche Berechnung durch: 

□ Veriagsrechnung □ Abbuchung von meinem Bank- 

bzw. Postscheckkonto 


1 


Sank / PadiA 


ßfinkloiföahl 




Dalum 


^^^^^pEEkER^ 


O 

3 







& 

I 


o 

</> 




Bitte senden Sie mir gegen Rechnung folgende Bücher: 


äDM 


gesamt DM 


Datum 


Unlorechnft 



pEEkER^ 


Bitte senden Sie mir 

gegen Rechnung folgende Apple-Programme: 


□ 


Peeker-Sammeldiskette, einzeln 

Disk#_, Disk#- 

Disk#_, Disk#___ 


Preis je Disk DM 28,- (einzeln) 


Peeker Sammeldiskette, 
im Fortsetzungsbezug 
ab Disk #_ 


(Mindestbezug 6 Disketten) 
Preis je Disk DM 20,- 


□ CP/M ja 

□ Pascal ja 


□ CP/M nein 

□ Pascal nein 


□ Apple DOS 3.3, Begieitdiskette, DM 28,- 

□ Apple ProDOS, Band 1, Begleitdiskette, 
DM 28,- 

□ Apple ProDOS, Band 2, Begleitdiskette, 
DM 28,- 

□ Apple Assembler, Begleitdiskette, DM 28,- 

□ ProDOS-Editor 1.0, Programm, DM 98,- 
MMU 2.0, Programm, DM 98,- 
INPUT 2.0, Programm, DM 98,- 
Softbreaker 1.0, Programm, DM 48,- 
DB-Meister, Programm, DM 290,- 
Superplot, Programm, DM 48,- 
Superquick, Programm, DM 48,- 


Daium 


Unterschrift 







































Software-Karte Buch-ShopAbo-Kai^ 



Abtoiluno 


Stfa&e 


PLZ/Ort — 

Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, daß ich die Bestellung 
schriftlich durch Mitteilung an den Dr. Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 
7 Tagen widerrufen kann. Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Poststempels) 


Datum 


Unterschrift 

Verlagshinweis: 

Das Abonnement verlängert sich zu den jeweils gültigen 
Bedingungen um ein Jahr, wenn es nicht 2 Monate vor 
Jahresende schriftlich gekündigt wird. 


POSTKARTE 


peeker 

Leserservice 

Postfach 10 28 69 
6900 Heidelberg 1 


INPUT 2.0 

Ein Bildschirm- 

Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1021-5 

„Input 2.0“ liegt wahlweise in der Bank | 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u. a. definieren: Feldlänge (bis zu 255 
Zeichen) - Vtab - Htab - Datentyp (insge¬ 
samt 8 Typen) - Scrollflag (starre oder dyna¬ 
mische Maske) - Ctrifiag - Füllflag - Löscht 
flag - Bildschirmflag (40- oder 80-Z-DarstelH 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, Den 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder Ile; feri 
ner Apple (I+ im 40-Zeichenmodus 



Karte bitte vollständig ausfüiien 


/orname, Name 


POSTKARTE 


Sira&e 


PL2/Ort 


Tolefon lYiil Vorwahl 


peeker 

Versandbuchhandlung 
Postfach 10 28 69 
6900 Heidelberg 1 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple Ile 64K-Karte 
DOS 3.3 (und ProDOS) 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 

Insgesamt enthält die neue „MMU 2.0“-i 
Diskette über 25 Programme, die neud 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0“ 
primär für 64K-Karte-Besitzer gedacht. 
Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder llc 



Karle bitte vollständig ausfüllen 


Vornama, Name 


Firma 


POSTKARTE 


peeker 

_ Softwareabteilung 

Strafle 

_ Postfach 102869 

PLZ/Ort 


Telefon mit Vorwahl 


6900 Heidelberg 1 


Softbreaker 1.0 

Eine softwaremäßige Interrupt-Utility : 
für die Apple Ile 64K-Karte 

von U. Stiehl 

1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 

Softbreaker ist ein Assemblerprogramm, mil 
dessen Hilfe Programme, die sich von det 
64K-Karte (= Extended 80 Column Card füt 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden köni 
nen. Dadurch ist es auch möglich, Siche-* 
rungskopien von sogenannten kopierge-i 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programm^ 
werden komplett, d. h. die ganzen 64K ein^ 
schließlich Language Card, in nur ca. 11 Sei 
künden auf einer formatierten Diskette gesii 
chert, i 

Gerätevoraussetzung: Apple Ile mit 64K^ 
Karte 

Hüthig Software Service, 

Postfach 10 28 69, D-6900 Heidelberg 














































pRodos 

ProDOS-Anpassung für 
Laufwerke mit 40 bis 
160 Spuren 


von Horst Hanke und Hans-Georg Hüneke 


Das Disketten-Betriebssystem ProDOS ist 
ein leistungsstarkes DOS, das den Betrieb 
von Plattenspeichern bis 32 Megabyte zu¬ 
läßt. Leider ist jedoch mit der Originalver¬ 
sion 1.0.1 nur der Betrieb von 35-Spur- 
Laufwerken möglich. Hieraus ergibt sich 
umgerechnet eine Diskettenkapazität von 
280 Blocks (143K). Um nun den Besitzern 
von Laufwerken mit einer größeren Kapa¬ 
zität diesen Vorteil zugänglich zu machen, 
wird nachfolgend ein Patch-Programm be¬ 
schrieben, das den Benutzer in die Lage 
versetzt, den vorhandenen File PRODOS 
für den Betrieb bis zu 1280 Blocks (= 160 
Tracks) zu verändern. Außerdem wird 
auch der Filer dahingehend modifiziert, 
daß das Kopieren von 35-, 40- und 80- 
Track-Disketten sowie beliebiger Files 
möglich wird. Es können dann selbstver¬ 
ständlich auch Disketten der Formate 1 * 
35 Tracks bis 2 * 80 Tracks formatieren 
werden. 

Im folgenden werden nun Module vorge¬ 
stellt, die in der Lage sind, das Original- 
ProDOS 1.0.1 sowie den FILER 1.0.1 zu 
modifizieren. Wegen der Länge kann hier 
nur der Hexdump wiedergegeben werden. 
Die Zeilennummern beziehen sich auf den 
Quellcode für den Apple-Assembler (unter 
ProDOS), der auf der Peeker-Sammeldis- 
kette enthalten ist und nach ProDOS kon¬ 
vertiert werden kann. 


wurde in einem Speicherbereich lauffähig 
gemacht, in dem normalerweise der RAM- 
Diskdriver installiert ist. Hieraus ergibt 
sich, daß der Betrieb größerer Disketten- 
Kapazitäten in diesem Fall auch einen 
Nachteil hat: Die RAM-Disk mußte geop¬ 
fert werden. Diese Maßnahme hat jedoch 
den Vorteil, daß mit den meisten Program¬ 
men keine Kompatibilitätsprobleme auftre- 
ten. Es wäre nämlich durchaus möglich, 
diese Erweiterung in den noch freien Teil 
der Language-Card (Bank 2) zu legen. 
Spätestens wenn der unter ProDOS lau¬ 
fende Apple-Assembler gestartet wird, 
zeigt sich jedoch, daß auch dieser von 
dem Bereich der Bank 2 Gebrauch macht. 
Der 640K-Diskdriver besteht im einzelnen 
aus vier mehr oder weniger unabhängig 
voneinander laufenden Assembler-Rou¬ 
tinen. 

- Die Hauptroutine (Zeile 42-89)* hat nur 
die Aufgabe der Kopfumschaltung in Ab¬ 
hängigkeit von der momentan verwende¬ 
ten Diskette. Dies bedeutet: Bei einer 
Konfiguration von 2 * 80 Spuren soll z.B. 
die Spur 136 positioniert werden. Da die¬ 
ser Wert größer als 79 Tracks ist, muß 
notwendigerweise eine Kopfumschaltung 
erfolgen. (Dies bezieht sich nur auf den 
Ehring-Controller oder Kompatible. Beim 
Erphi-Controller wird z.B. von Spur zu 
Spur der Kopf umgeschaltet, so daß gera¬ 


de Spurzahlen auf der einen Seite, unge¬ 
rade Spurzahlen auf der anderen Seite 
gelesen werden). Aus dem Bild 1 ist er¬ 
sichtlich, daß sich die Spur 56 sowie die 
Spur 136 physikalisch an der gleichen 
Stelle befinden. Um nun auf Track 136 zu 
positionieren, muß ein Wert von 80 
(Tracks) subtrahiert werden, was gleich¬ 
zeitig mit einer Kopfumschaltung zu ver¬ 
binden ist (Zeile 60-84). 

-Dieses Ergebnis wird jetzt der „MY- 
SEEK“-Routine (1,2) übergeben, die wie¬ 
derum die Aufgabe hat, den Schreib/Le¬ 
se-Kopf zu positionieren. Analog dazu 
verfährt man bei einer Konfiguration von 2 
^ 40 Tracks, wobei jedoch anstelle von 80 
40 subtrahiert wird. 

- Damit auch ein Mischbetrieb zwischen 
verschiedenen Disketten (1 * 35, 2 ^ 40, 
1 ^ 80 ) möglich wird, war es erforderlich 
mit Hilfe der Routine „RECOGNIZE“ (Zei¬ 
le 215-252) eine Parametertabelle mit den 
momentan aktiven Laufwerken anzulegen. 
Diese Tabelle belegt einen Bereich von 7 
Bytes, wobei jedes Byte einen Slot dar¬ 
stellt und jedes Halbbyte (Nibble) den 
Drive 1 oder 2 wiedergibt. Das Bild 2 zeigt 
nun, wie in einem Nibble die Drive-Typ- 
kennung von einem 40- oder 80-Track- 
Laufwerk aussieht. Bei jeder Fehlpositio¬ 
nierung, bedingt durch einen Disketten- 


1. Modifizieren des ProDOS 1.0.1 
(640K-Diskdriver) 

Um das ProDOS für größere Disketten- 
Laufwerke anzupassen, ist es notwendig, 
dem Diskdriver zu ermöglichen, mehr als 
35 Spuren zu positionieren. Diese Modifi¬ 
kation läßt nun den Betrieb von max. 2 * 
80 Spuren (= 160 Spuren = 640K) zu. 
Der erweiterte Driver (Datei PRODOS) 


' Zeilennummern beziehen sich auf Quelltext PRODOS,0 {nur auf Sammeldiskette) 

Schreib/Lese-Köpfe 
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Wechsel, wird diese Tabelle (Zeile 189- 
214) aktualisiert. 

- Ausgehend von dem Inhalt dieserTabel- 
le kann nun die „ADJUST“-Routine (165- 
188), die vor jedem Seek-Befehl (Zeile 58) 
aufgerufen wird, die jeweils richtigen Para¬ 
meter für das zur Zeit benutzte Laufwerk 
einstetien. 

Als wichtigen Hinweis sollte man beach¬ 
ten, daß beim Einlegen einer 35-Track- 
initialisierten Diskette in ein 80-Track- 
Laufwerk eine (hardwaremäßige) Um¬ 
schaltung auf 40-Spur-Betrieb erfolgen 
muß (48/96 TPI-Umschaltung). 


Byte 


Nibble H 

Nibble L 


Drive 2 

Drive 1 


X 

X 

0 

1 

X 

X 

0 

1 

Drive 2=40 Drive 1=40 

X 

X 

0 

1 

X 

X 

1 

0 

Drive 2=40 Drive 1=80 

X 

X 

i 

0 

X 

X 

0 

1 

Drive 2=80 Drive 1=80 

X 

X 

1 

0 

X 

X 

1 

0 

Drive 2=80 Drive 1=40 









» 80-Track-Bit 


Bild 2. Nibble-Tabelle 


2. Modifizieren des FILERSs 1.0.1 

Eine Modifikation ist eigentlich nur aus 
dem Grunde notwendig, damit mehr als 35 
Spuren formatiert werden können. Außer¬ 
dem wird noch der Boot-Block verändert, 
um das Booten von nlcht-apple-kompati- 
blen Disk-Controllern zu ermöglichen. 
Weiterhin wird beim Aufruf der beiden Me¬ 
nüpunkte „COPYAVOLUME“ und „FOR¬ 
MAT A VOLUME“ ein zusätzliches Menü 
eingebunden, das die verschiedenen For¬ 
matierungsformate zur Auswahl anbietet. 
Die Änderung des Boot-Blocks 0 ist an 
zwei Stellen notwendig: 

- Die Abfrage des Controller-Bytes $CnFF 
wird umgangen (Zeile 350-361)*. 

- Sollte der Disk-Controller (3) (Ehring 
oder baugleiche) am DIL-Schalter 4 auf 
doppelseitigen Betrieb geschaltet sein, 
muß die Boot-Software (Block 0) in der 
Lage sein, den Schreib/Lese-Kopf auf die 
richtige Diskettenseite umzuschalten (Zei¬ 
le 314-337). 

Als nächstes muß der Formatter-Disk 
driver erweitert werden, damit das Forma¬ 
tieren von 1 * 35 bis 2 * 80 Tracks 
ermöglicht wird. Um diese Erweiterung im 
Filer zu integrieren, war es notwendig, den 
Kopier-Puffer um 1K (2 Blöcke) zu redu¬ 
zieren (Zeile 398-408). Gleichzeitig muß 
dieser Bereich in der „Globel-Page“ (4) 
vor Zugriffen durch das ..MLf“ geschützt 


werden (Zeile 388-397). Dies hat zur Folge, 
daß der Kopier-Puffer von 16K auf 15K 
gekürzt werden muß. Um dies zu verdeut¬ 
lichen, sind in dem Bild 3 der Original- 
Filer und der modifizierte Filer (NEW.- 
FILER) im Speicher dargestellt. 

Die Filer-Änderungen werden erst beim 
Start durch eine Verschieberoutine instal¬ 
liert (Zeile 291-313 und 362-387), die von 
der Speicherstelle $2000 aufgerufen wird. 
Ansonsten läßt sich der Filer in gewohnter 
Weise bedienen, nur mit der zusätzlichen 
Möglichkeit, unter „VOLUME COM- 
MANDS“ verschiedene Formatierungsfor¬ 
mate auswählen zu können (Zeile 48- 
109). 

3. Beschreibung des Patch- 
Programms für ProDOS und 
FILER 

Um die Patch-Files erzeugen zu können, 
muß eine Arbeitsdiskette erstellt werden, 
die die in Tabelle 1 gelisteten Files enthal¬ 
ten muß. 

Mit dem Aufruf „-SYSTEM.PATCH.1 “ wird 
das Patch-Programm gestartet. Hierauf 
meldet sich ein Menü mit den folgenden 
Möglichkeiten: 

? -TUTOR 
F - PATCH FILER 
P - PATCH PRODOS 
Q-QUIT 

• Wählt man das wird eine Kurzbe¬ 
schreibung, ähnlich wie im Filer selbst, 
dargestellt. (Anm. d. Red.: Entgegen den 


normalen Peeker-Gepflogenheiten wird 
dieses Tutorial in Anlehnung an die FILER- 
und CONVERT-Hilfsmenüs in englischer 
Sprache ausgegeben.) 

• Bei der Wahl von „F“ wird der Filer- 
Patch-Vorgang folgendermaßen durchge¬ 
führt: Als erstes wird vom Programm der 
Original-FILER 1.0.1 geladen. Nachfol¬ 
gend werden die modifizierenden Files 
FILER.1 sowie FILER.2 überlagernd dazu¬ 
geladen. Somit ist diese Modifikation ab¬ 
geschlossen und wird unter dem Namen 
NEW.FILER auf die Diskette zurück ge¬ 
schrieben. 

• Durch die Wahl des Punktes „P“, wird 
der PRODOS-Patch-Vorgang ausgeführt. 
Zuerst wird das Original-ProDOS 1.0.1, 
gefolgt von den modifizierenden Files 
PRODOS.1, PRODOS.2, PRODOS.3 und 
PRODOS.4. in den Speicher geladen. Da¬ 
mit ist auch dieser Patch abgeschlossen, 
und das neue ProDOS-System wird unter 
dem Namen NEW.PRODOSaufdIe Diskette 
zurückgeschrieben. 

• Abschließend kann mit „Q“ das Patch- 
Programm beendet werden. 


4. Wie erstellt man eine Boot- 
Diskette 

ln diesem Abschnitt wird gezeigt, wie man 
z.B. eine 160-Track-formatierte Boot-DIs- 
kette erstellt. 

Als erstes müssen die Files „NEW.PRO¬ 
DOS“ und „NEW.FILER“ mit den vorge¬ 
nannten Punkten „F“ und „P“ des Patch- 
Programms erstellt werden (unter Angabe 
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von „E“ für 160 Tracks). Durch Aufruf des 
neuen Filers mit dem Kommando „-NEW 
.FILER“ kann nun eine leere Diskette 
formatiert werden, damit diese einen mo¬ 
difizierten Boot-Block erhält. Als erstes 
wird dann mit F^ilfe des Filer-Kommandos 
„FILE COMMAND“ und „COPY FILES“ 
der File „NEW.PRODOS“ auf die neu for¬ 
matierte Diskette mit dem Namen „PRO¬ 
DOS“, kopiert. Abschließend muß noch 
von der ProDOS-Systemdiskette der File 
„ BASIC.SYSTEM “ auf diese Diskette 
übertragen werden. Sollte diese Reihen¬ 
folge (PRODOS als erster Eintrag in dem 
Directory) nicht eingehalten werden, wird 
beim Booten sowie beim Aufruf durch das 
Strichkommando „-PRODOS“ die Fehler¬ 
meldung „RELOCATION/CONFIGURA- 
TION ERROR“ auf dem Bildschirm ausge¬ 
geben. 


Literaturhinweis 

(1) DOSSOURCE 3.3, LAZER MICRO 
SYSTEMS; 

(2) Beneath Apple DOS von Don 
Worth und Peter Lechner; 

(3) FDC4 Floppy-Disk-Controller von 
Ehring-Elektronik; 

(4) Apple ProDOS für Aufsteiger von 
Ulrich Stiehl. 


Kurzhinweise 

1. Zweck: 

Umstellung von ProDOS 1.0.1 auf 
Laufwerke mit höherer Kapazität. 

2. Konfiguration: 

Apple ll-F oder Ile; 

Ehring-Controller; 

ProDOS 1.0.1. 


3. Test: 

-SYSTEM.PATCH.1 

4. Sammeldisk: 

PRODOS.O 

FILER.O 

SYSTEM.PATCH.O 

(Quelltexte für Apple-Assembler unter 
ProDOS) 

PRODOS.1 

PRODOS.2 

PRODOS.3 

PRODOS.4 

FILER.1 

FILER.2 

SYSTEM.PATCH.1 
(Maschinenprogramme) 


Tabeiie 1 

Liste aller benötigter Files zur Erstellung der gepatchten 
Files NEW.PRODOS und NEW.FILER. 


NAME 

TYPE 

BLOCKS 

*PR0D0S 

SYS 

31 

PRODOS.1 

BIN 

1 

PRODOS.2 

BIN 

1 

PRODOS,3 

BIN 

1 

PRODOS.4 

BIN 

1 

*FILER 

SYS 

51 

FILER.1 

BIN 

3 

FILER.2 

BIN 

1 

SYSTEM.PATCH.1 

BIN 

6 


Kurzanieitung 

1. Auf eine normale ProDOS—1.0,1-Diskette die oben genannten 
Dateien aufnehmen. 

a) Mit Hilfe des KONVERT-Programms die Dateien von der 
Peeker-Sammeldisk (DOS 3.3) übertragen; oder 

b) die Dateien "PRODOS.0", "SYSTEM.PATCH.0" und "FILER.0" 
(als Quellcode auf Sammeldisk) mit dem Apple-Assembler 
assemblieren; oder 

c) die Hexdumps der Programme eingeben und wie angegeben 
abspeichern, 

2. Gegebenfalls mit dem FILER die Dateien "PRODOS" und 

"FILER" (jeweils nur 1.0.1) ebenfalls auf Diskette 
kopieren, ^ 

3. Mit "-SYSTEM.PATCH.1" das Patch-Programm aufrufen und mit 
den Optionen "F" und "P" die Dateien "NEW.PRODOS" und 
"NEW.FILER" erzeugen, 

4. Mit "-NEW.FILER" den gepatchten Filer aufrufen und eine 
neue Diskette unter Angabe der Laufwerkskapazität 
formatieren. 

5- Die Datei "NEW.PRODOS" mit dem Namen "PRODOS" auf diese 
neu formatierte Diskette kopieren. 

6. Gegebenenfalls auch die Dateien "BASIC SYSTEM" und 
"NEW.FILER" übertragen. 


BSAVE PRODOS.1, A$FEBE, S$0042 

$FEBE-: 48 20 

$FEC0; 31 FF 68 C9 50 B0 0E 48 

$FEC8: 8A 09 C0 8D D0 FE 8D 00 

$FED0; C6 68 4C E0 FE A4 3E 99 

$FED8: 88 C0 99 89 C0 ED C4 FE 

$FEE0; 0A 8D 6F FB 60 20 98 FB 

$FEE8; 08 AD 6F FB CD 56 FB F0 

$FEF0: 03 28 38 60 28 60 AD 17 

$FEF8: FF F0 14 20 50 FF A9 00 


BSAVE PRODOS.2, A$FF00, L$0078 

$FF00: 20 0C F9 AD 56 FB 20 0C 
$FF08: F9 CE 17 FF 4C 9A F8 A9 
$FF10: 27 CE 6A FB 4C B0 F8 00 
$FF18: 00 A5 43 48 08 0A 4A 4A 
$FF20: 4A 4A 4A AA BD 48 FF 28 
$FF28: 30 04 6A 6A 6A 6A A8 68 
$FF30: 60 20 19 FF 98 A0 02 4A 
$FF38: B0 03 88 D0 FA B9 44 FF 
$FF40: 8D C4 FE 60 A0 50 28 00 


$FF48 

00 

00 

00 

00 00 00 22 00 

$FF50 

20 

19 

FF 

48 

98 

6A B0 

15 

$FF58 

6A 0A 

38 

2A 

A8 

68 30 0A 

$FF60 

98 

2A 

2A 

2A 

2A 

9D 

48 

FF 

$FF68 

D0 0D 98 

D0 F8 

6A 

38 

2A 

$FF70 

0A A8 68 

10 EB 30 

F3 

60 

BSAVE PRODOS.3, 

A$F800, L$0010 

$F800: 

A9 01 

8D 


FF 

A5 

46 

A6 

$F808: 

47 

8E 

56 

FB E0 05 B0 

26 

BSAVE PRODOS.4, 

A$2900, L$0078 

$2900: 

A0 78 

B9 

00 2C 

99 00 

FF 

$2908: 

88 C0 

FF 

D0 F5 60 



BSAVE FILER.1 

, A$BB00, L$02d3 


$BB00: 

AD 

B6 

4E 

48 

A5 

lA 

C9 

03 

$BB08: 

F0 

02 

68 

60 

68 

C9 

01 

F0 

$BB10: 

05 

C9 

02 

F0 

01 

60 

20 

58 

$BB18: 

FC 

20 

96 

BB 

AD 

00 

C0 

10 

$BB20: 

FB 

2C 

10 

C0 

C9 

CI 

F0 

IC 

$BB28: 

C9 

C2 

F0 

20 

C9 

C3 

F0 

24 

$BB30: 

C9 

C4 

F0 

2C 

C9 

C5 

F0 

33 

$BB38: 

C9 

9B 

F0 

03 

4C 

16 

BB 

68 

$BB40: 

68 

4C 

92 

BB 

A9 

23 

8D 

F4 

$BB48: 

79 

4C 

77 

BB 

A9 

28 

8D 

F4 

$BB50: 

79 

4C 

77 

BB 

A9 

28 

8D 

76 

$BB58: 

BD 

0A 

8D 

F4 

79 

4C 

77 

BB 

$BB60: 

A9 

50 

8D 

76 

BD 

8D 

F4 

79 

$BB68: 

4C 

77 

BB 

A9 

50 

8D 

76 

BD 

$BB70: 

0A 

8D 

F4 

79 

4C 

77 

BB 

8D 

$BB78: 

44 

42 

A9 

00 

8D 

46 

42 

A2 

$BB80: 

04 

0E 

46 

42 

CA 

F0 

0B 

0E 

$BB88: 

44 

42 

90 

F5 

2E 

46 

42 

4C 

$BB90: 

84 

BB 

AD 

B6 

4E 

60 

A9 

00 

$BB98: 

8D 

A3 

BB 

A9 

BB 

8D 

A4 

BB 

$BBA0: 

A0 

B5 

B9 

B5 

BB 

F0 

0D 

09 

$BBA8: 

80 

20 

ED 

FD 

C8 

D0 

F3 

EE 

$BBB0: 

A4 

BB 

D0 

EE 

60 

AA 

AA 

AA 

$BBB8: 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

$BBC0: 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

$BBC8: 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

$BBD0: 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

$BBD8: 

AA 

AA 

AA 

AA 

0D 

AA 

A0 

A0 

$BBE0: 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

$BBE8: 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

$BBF0: 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

$BBF8: 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

$BC00; 

A0 

A0 

A0 

AA 

0D 

AA 

A0 

A0 

$BC08: 

A0 

A0 

C4 

C9 

D3 

CB 

A0 

C6 

$BC10: 

CF 

D2 

CD 

CI 

D4 

D4 

C5 

D2 

$BC18: 

A0 

C3 

CF 

CE 

C6 

C9 

C7 

D5 

$BC20: 

D2 

CI 

D4 

C9 

CF 

CE 

A0 

A0 

$BC28: 

A0 

A0 

A0 

AA 

0D 

AA 

A0 

A0 

$BC30: 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

$BC38: 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 


$BC40: A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

$BC48: A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

$BC50: A0 

A0 

A0 

AA 

0D 

AA 

AA 

AA 

$BC58: AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

$BC60; AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

$BC68: AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

$BC70; AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

$BC78: AA 

AA 

AA 

AA 

0D 

0D 

AD 

AD 

$BC80: C6 

CF 

D2 

CD 

CI 

D4 

D4 

C5 

$BC88: D2 

A0 

D0 

CI 

D2 

CI 

CD 

D3 

$BC90: AD 

AD 

0D 

0D 

0D 

A0 

A0 

A0 

$BC98: A0 

A0 

A0 

CI 

A0 

AD 

A0 

A0 

$BCA0: B3 

B5 

A0 

D4 

D2 

CI 

C3 

CB 

$BCA8: AC 

A0 

D3 

C9 

CE 

C7 

CC 

C5 

$BCB0: A0 

D3 

C9 

C4 

C5 

C4 

0D 

0D 

$BCB8; A0 

A0 

A0 

A0 

A0 

A0 

C2 

A0 

$BCC0: AD 

A0 

A0 

B4 

B0 

A0 

D4 

D2 

$BCC8: CI 

C3 

CB 

AC 

A0 

D3 

C9 

CE 

$BCD0: C7 

CG 

C5 

A0 

D3 

C9 

C4 

C5 

$BCD8; C4 

0D 

0D 

A0 

A0 

A0 

A0 

A0 

$BCE0: A0 

C3 

A0 

AD 

A0 

A0 

B4 

B0 

$BCE8: A0 

D4 

D2 

CI 

C3 

CB 

AC 

A0 

$BCF0: C4 

CF 

D5 

C2 

CC 

C5 

A0 

D3 

$BCF8: C9 

C4 

C5 

C4 

0D 

0D 

A0 

A0 

$BD00: A0 

A0 

A0 

A0 

C4 

A0 

AD 

A0 

$BD08: A0 

B8 

B0 

A0 

D4 

D2 

CI 

C3 

$BD10: CB 

AC 

A0 

D3 

C9 

CE 

C7 

CC 

$BD18: C5 

A0 

D3 

C9 

C4 

C5 

C4 

0D 

$BD20: 0D 

A0 

A0 

A0 

A0 

A0 

A0 

C5 

$BD28: A0 

AD 

A0 

A0 

B8 

B0 

A0 

D4 

$BD30: D2 

CI 

C3 

CB 

AC 

A0 

C4 

CF 

$BD38: D5 

C2 

CC 

C5 

A0 

D3 

C9 

C4 

$BD40: C5 

C4 

0D 

0D 

0D 

D3 

C5 

CC 

$BD48: C5 

C3 

D4 

A0 

CI 

CE 

A0 

CF 

$BD50: D0 

D4 

C9 

CF 

CE 

A0 

CF 

D2 

$BD58: A0 

BC 

C5 

D3 

C3 

BE 

BA 

A0 

$BD60: 0D 

0D 

0D 

A0 

A0 

A0 

A0 

A0 

$BD68: A0 

00 

20 

72 

BD 

0A 

0E 

24 

$BD70; 7D 

60 

AC 

37 

7D 

C9 

50 

B0 

$BD78: 10 

48 

98 

4A 

4A 

4A 

4A 

09 

$BD80: C0 

8D 

86 

BD 

8D 

00 

C6 

68 

$BD88: 60 

99 

88 

C0 

99 

89 

C0 

ED 

$BD90: 76 

BD 

60 






BSAVE FILER.2, A$8693, L$00B0 


$8693: A0 

00 

B9 

00 

84 




$8698: 99 

00 

BB 

C8 

D0 

F7 

B9 

00 

$86A0: 85 

99 

00 

BC 

C8 

D0 

F7 

B9 

$86A8: 00 

86 

99 

00 

BD 

C0 

93 

F0 

$86B0: 03 

C8 

D0 

F3 

A0 

00 

B9 

27 

$86B8: 87 

99 

9E 

66 

C0 

IC 

F0 

03 

$86C0: C8 

D0 

F3 

A9 

14 

8D 

91 

66 

$86C8: A9 

65 

8D 

9C 

66 

A9 

EA 

8D 

$86D0: 06 

67 

8D 

07 

67 

8D 

08 

67 

$86D8: A9 

20 

8D 

B7 

22 

A9 

00 

8D 

$86E0: B8 

22 

A9 

BB 

8D 

B9 

22 

A9 

$86E8: A9 

8D 

6B 

65 

A9 

00 

8D 

6C 

$86F0: 65 

AD 

24 

87 

8D 

00 

20 

AD 


Peeker11/85 


31 











$86F8 

25 

87 

80 

01 

20 AO 

26 

87 

$8700 

80 

02 

20 

A9 

EA 80 

23 

79 

$8708 

A9 

20 

80 

24 

79 A9 

6A 

80 

$8710 

25 

79 

A9 

BO 

80 26 

79 

A9 

$8718 

IF 

80 

CA 

20 

A9 BB 

80 

E2 

$8720 

20 

4C 

00 

20 

A2 FF 

9A 

05 

$8728 

CE 

CI 

C2 

CC 

C5 A0 

04 

CF 

$8730 

A0 

CC 

CF 

CI 

C4 A0 

00 

02 

$8738 

CF 

C4 

CF 

03 

BO 88 

C0 

4C 

$8740 

68 

09 

00 






BSAVE SYSTEM.PATCH.1, A$0803, 
L$099B 


$0803; 20 

2F 

FB 

20 

58 




$0808: FC 

20 

40 

0B 

20 

2E 

08 

C9 

$0810; 3F 

F0 

28 

C9 

46 

F0 

0E 

C9 

$0818: 50 

F0 

00 

C9 

51 

F0 

0C 

20 

$0820: AE 

08 

00 

E8 

60 

4C 

4C 

09 

$0828: 4C 

05 

08 

4C 

A5 

08 

AO 

00 

$0830: C0 

10 

FB 

2C 

10 

C0 

29 

7F 

$0838: C9 

IB 

60 

20 

2F 

FB 

20 

58 

$0840: FC 

A9 

08 

20 

15 

0B 

20 

93 

$0848: 08 

20 

86 

08 

F0 

06 

20 

AE 

$0850: 08 

4C 

49 

08 

20 

2F 

FB 

20 

$0858: 58 

FC 

A9 

09 

20 

15 

0B 

20 

$0860: 93 

08 

20 

86 

08 

F0 

06 

20 

$0868: AE 

08 

4C 

62 

08 

20 

2F 

FB 

$0870: 20 

58 

FC 

A9 

0A 

20 

15 

0B 

$0878: 20 

A0 

08 

20 

2E 

08 

F0 

83 

$0880; 20 

AE 

08 

4C 

7B 

08 

20 

2E 

$0888; 08 

F0 

03 

C9 

00 

60 

68 

68 

$0890: 4C 

03 

08 

A0 

01 

A9 

17 

85 

$0898; 22 

20 

5B 

FB 

98 

4C 

15 

0B 

$08A0: A0 

02 

4C 

95 

08 

20 

2F 

FB 

$08A8: 20 

58 

FC 

4C 

00 

03 

08 

A9 

$08B0: 20 

85 

FB 

A9 

02 

20 

C9 

08 

$08B8: 80 

30 

C0 

A9 

24 

20 

C9 

08 

$08C0: 80 

30 

C0 

C6 

FB 

00 

EC 

28 

$08C8: 60 

38 

48 

E9 

01 

00 

FC 

68 

$0800: E9 

01 

00 

F6 

60 

A9 

05 

20 

$0808: 7B 

09 

A9 

06 

20 

7B 

09 

A9 

$08E0: 07 

20 

7B 

09 

A9 

08 

20 

7B 

$08E8: 09 

A9 

09 

20 

7B 

09 

20 

FE 

$08F0: 08 

A9 

0A 

20 

7B 

09 

A9 

0B 

$08F8: 20 

7B 

09 

4C 

03 

08 

A9 

EA 

$0900: 80 

5B 

26 

80 

5C 

26 

80 

AB 

$0908: 52 

80 

AC 

52 

80 

0C 

53 

A9 

$0910; 20 

80 

Al 

52 

80 

00 

53 

A9 

$0918; 4C 

80 

AO 

52 

A9 

E5 

80 

A2 

$0920: 52 

A9 

FE 

80 

A3 

52 

80 

AF 

$0928: 52 

80 

0F 

53 

A9 

F6 

80 

AE 

$0930: 52 

A9 

BE 

80 

0E 

53 

A9 

56 

$0938: 80 

C4 

52 

80 

C9 

52 

A9 

00 

$0940: 80 

00 

20 

80 

08 

25 

A9 

A9 

$0948: 80 

07 

25 

60 

A9 

00 

20 

7B 

$0950: 09 

A9 

01 

20 

7B 

09 

A9 

02 

$0958: 20 

7B 

09 

A9 

03 

20 

7B 

09 

$0960: 20 

6B 

09 

A9 

04 

20 

7B 

09 

$0968: 4C 

03 

08 

A9 

20 

80 

00 

20 

$0970: A9 

93 

80 

01 

20 

A9 

86 

80 

$0978: 02 

20 

60 

18 

0A 

A8 

B9 

00 

$0980: 09 

85 

FE 

B9 

OE 

09 

85 

FF 

$0988: A0 

00 

Bl 

FE 

99 

00 

02 

C8 

$0990: C9 

00 

00 

F6 

20 

03 

BE 

B0 

$0998: 01 

60 

AO 

0F 

BF 

C9 

47 

F0 

$09A0: F8 

A0 

FF 

C8 

B9 

08 

09 

F0 

$09A8: 22 

CO 

0F 

BF 

00 

F5 

98 

18 

$09B0: 69 

03 

A8 

A9 

15 

20 

97 

08 

$09B8: 20 

42 

FC 

20 

A0 

08 

20 

AE 

$09C0; 08 

20 

2E 

08 

00 

F8 

68 

68 

$09C8; 4C 

03 

08 

98 

18 

69 

03 

20 

$0900: 15 

0B 

20 

8E 

FD 

4C 

BB 

09 

$0908: 27 

2B 

46 

48 

00 

F5 

09 

00 

$09E0: 0A 

22 

0A 

30 

0A 
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Viele Apple-Il-Systeme sind mit der Z80- 
Softcard nachgerüstet oder haben den 
ZSO-Prozessor (vor ailem bei neueren 
Nachbauten) bereits auf dem Motherboard 
integriert. Dieser Prozessor ist Vorausset¬ 
zung dafür, daß das CP/M-Betriebssystem 
beim Appie II lauffähtg ist. Im folgenden 
liegt stets die CP/M-Version 2.20 (56K) 
zugrunde. (Aber auch die Version 2.23 
(60K) kann für die Testbeispiele verwen¬ 
det werden.) Über dieses Betriebssystem 
und das hierunter laufende MBASIC ist im 
Peeker schon berichtet worden. Der vor¬ 
liegende Artikel möchte den Leser nun mit 
der Assembler-Programmierung des Z80- 
Prozessors unter CP/M vertraut machen. 
Beabsichtigt ist dabei kein allgemeiner As¬ 
sembler-Kurs, sondern eine schnelle Ein¬ 
führung für solche Leser, die schon 
Kenntnisse in irgendeiner Assembler¬ 
sprache besitzen; für Apple-Besitzer wird 
das der 6502-Assembler sein, für den U. 
Stiehl in Peeker, Heft 7/85 eine Einfüh¬ 
rung gegeben hat. Dieser Prozessor wird 
hier oft zu Vergleichszwecken herange¬ 
zogen. 

Neben der Beschreibung der Register¬ 
struktur, einem Überblick (mit Beispielen) 
über die Z80-Befehle und Adressierungs¬ 
arten werden auch Übersetzer und De¬ 
bugger beschrieben. Danach werden die 
System-Routinen (und deren Ansteue¬ 
rung) für Console- und File-l/0 darge- 
steltt. Nach Durcharbeiten dieses Aufsat¬ 
zes wird der Leser bereits über eine gut 
bestückte Makro-Bibliothek verfügen, die 
die Programmierung erheblich vereinfacht. 


Zuvor einige Bemerkungen zum leidigen 
Problem der Z80- und 8080-Normierun- 
gen. Der 8080-Prozessor hat einen Be¬ 
fehlssatz, der eine Untermenge des Z80- 
Befehlsvorrats darstellt, d.h. der Z80-Pro- 
zessor kann alle 8080-Befehle ausführen, 
enthält aber noch weitere Befehle. Selbst 
bei gemeinsamen Befehlen sind beim Z80 
oft noch weitergehende Adressierungsar¬ 
ten möglich. Das CP/M-Betriebssystem 
samt Assembler und ^Debugger (ASM.- 
COM/DDT.COM) ist nun in 8080-Normie- 
rung erstellt worden. Fazit: die exklusiven 
Z80-Befehle sind weder beim Assembler 
noch beim Debugger direkt verfügbar. 
Man kann sie höchstens als Hex-Bytes 
eingeben - was natürlich der Lesbarkeit 
nicht gerade zuträglich ist. Abhilfe schaffen 
hier nur ein Z80-Assembler wie z.B. M80/ 
MACRO80 und ein Z80-Debugger wie 
ZSID oder DDTZ. Ein weiteres Problem 
kommt hinzu: Selbst die beiden Prozesso¬ 
ren gemeinsamen Befehle yverden unter¬ 
schiedlich geschrieben, d.h. besitzen sehr 
verschiedene Mnemonics. Man ist bei der 
Standard-Software fast gezwungen, auch 
noch 8080-Assembler zu lernen. Dieser 
Weg soll in diesem Artikel nicht beschrit¬ 
ten werden. Grundlage ist stets die Z80- 
Normierung. Minimalvoraussetzung für die 
sinnvolle Nutzung dieses Artikels ist des¬ 
halb ein Z80-Assembler. Empfehlenswert 
ist in jedem Fall ein Z80-Debugger. 


1. Die Z80“Registerstruktur 

In Abb. 1 ist der Registersatz des Z80- 
Prozessors dargestellt. Die Abbildung ent¬ 
hält die Registerbezeichnungen und die 
Registerlänge in Bits. Wer als gestandener 
6502-Programmierer (gewöhnt an 6 Regi¬ 
ster) zum ersten Mal diese Vielfalt (je nach 
Zählweise 11-20 Register) sieht, sollte 
nicht verzweifeln oder gar dieses Heft zur 
Seite legen. 

Die rechte Bildhälfte (Hintergrund-Regi¬ 
ster/Cache-Register) erledigt sich sehr 
schnell. Außerdem muß man in der Ein¬ 
stiegsphase ja nicht gleich mit allen Regi¬ 
stern simultan arbeiten. Im Laufe der Zeit 
lernt man dann automatisch den Komfort 
einer größeren Registerzahl zu schätzen. 
Beim Z80 wird das A-Register auch als 
Akkumulator bezeichnet und hat aufgrund 
spezieller Adressierungsarten eine Son¬ 
derstellung. Die allgemeinen Register B- 
C-D-E-H-L haben wie das A-Register eine 
Länge von 8 Bits, lassen sich aber paar¬ 
weise (wie aus Abb. 1 ersichtlich) zu 16- 
Bit-Registern zusammenschalten. In der 
Assembler-Programmierung werden dann 
die Registerbezeichnungen BC-DE-HL 
benutzt. Das F-Register des Z80 ent¬ 
spricht von der Aufgabe her dem P-Regi- 
ster des 6502 - enthält also die Status- 
Bits. Die Bedeutung der einzelnen Bits (Bit 
5 und 3 werden nicht benutzt) ist in Abb. 2 
wiedergegeben. 

Die Indexregister IX und lY ähneln dem X- 
und Y-Register beim 6502. Sie besitzen 
jedoch hier eine Länge von 16 Bits. Das 
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Abb.2 


gleiche gilt im Vergleich für das SP-Regi- 
ster (Stackpointer/Stapelzeiger beim Z80) 
und das S-Register des 6502. Der Be¬ 
fehlszähler (PC-Register) darf bei beiden 
Prozessoren als funktionsgleich ange¬ 
nommen werden. Bleiben noch die Hinter¬ 
grund-Register in Abb. 1 zu erläutern. 
Sinn dieser Register ist es, eine schnelle 
Rettung der Vordergrund-Register (ohne 
Strich ’) zu ermöglichen. Diese Hinter¬ 
grund-Register und ebenso die Indexregi¬ 
ster sind beim 8080-Prozessor nicht vor¬ 
handen. Vorteil: Das CP/M-Betriebssy- 
stem benutzt diese Register nicht. Man 
kann hier sehr schön auch über längere 
Zeit Registerinhalte retten. 

2. Programmierung der 
Hintergrund-Register 

Für diesen Registersatz AF’ und BC’-DE’- 
HL’ gibt es nur 2 Operationstypen: 

a) Austauschen („exchange“) von A mit A’ 
und gleichzeitig F mit F’ - in Z80-Assem- 
bler: 

EX AF,AP 

b) Austauschen der 16-Bit-Register BC 
mit BC’, DE mit DE’, HL mit HL’ gleichzei¬ 
tig - Assembler-Befehl: 

EXX 

Ein zweimaliges Austauschen mit EX bzw. 
EXX stellt wieder den Originalzustand her. 
Für den EX-Befehl werden das A-Register 
und das F-Register als 16-Bit-Kombination 
betrachtet (ebenso für die PUSH/POP-Be- 
fehle), es handelt sich hier aber um kein 
echtes 16-Bit-Register. 

3. Die Stack-Bearbeitung 

Der Stapelzeiger hat 16 Bits Länge, kann 
also theoretisch einen 64K-Stack-Bereich 
verwalten. Beim 6502 sind nur 256 Bytes 
direkt verfügbar. Während dort der Stack 
byte-weise bearbeitet wird, liegt beim Z80 
eine wortweise (16 Bits) Organisation vor. 
Der Befehl 

PUSH reg (reg = AF-BC-DE-HL-IX-IY) 
schiebt 2 Bytes des jeweiligen 16-Bit-Re- 


gisters auf den Stack (und erniedrigt den 
Stapelzeiger sinngemäß um 2), der Befehl 

POP reg 

bewerkstelligt den umgekehrten Vorgang. 
Zweiter Unterschied zum 6502: Beim Z80 
kann der Stack-Bereich an beliebiger Stel¬ 
le im Speicher definiert werden - da ja SP 
insgesamt 64K adressieren kann. Beim 
Start eines Programms zeigt SP stets auf 
den CP/M-System-Stack, der laut CP/M- 
Beschreibung dem Benutzer einschließ¬ 
lich Rücksprungadresse ins Betriebssy¬ 
stem insgesamt 8 freie 16-Bit-Stack-Plät- 
ze zur Verfügung stellt. Wenn man im ei¬ 
genen Programm nur eine sehr geringe 
Tiefe in der Unterprogrammschachtelung 
hat, wird man hiermit auskommen - zumal 
alle Aufrufe für I/O-Bearbeitung über ei¬ 
nen „local stack“ innerhalb des System¬ 
bereichs abgewickelt werden. Unter Um¬ 
ständen muß man sich allerdings einen 
eigenen Stack definieren. Hierzu lädt man 
beim Programmstart das SP-Register mit 
der Endadresse des reservierten Be¬ 
reichs: 


START: LD SP,STACK 

DS 32 : 16 Einträge 

STACK EQU $-1 


Der LD-Befehl (= Load) lädt den Stack¬ 
pointer mit der Endadresse des Stack- 
Bereichs, der hier eine Länge von 32 
Bytes = 16 Einträge hat (DS = Define 
Storage). (6502-Kenner: Irgendein Pro¬ 
blem mit der LD-Zeile? Noch etwas Ge¬ 
duld!) Das $-Zeichen stellt den momenta¬ 
nen Stand des Adreßzählers dar, zeigt al¬ 
so auf das 33. Byte. 


4. Beenden eines Programms 

Hat man den System-Stack benutzt, so 
reicht (ähnlich wie unter DOS) ein 
RET(urn) zum Beenden eines Programms. 
Genauso gut, aber im Fall eines eigenen 
Stacks praktisch zwingend ist es, mit „JP 
0“ einen CP/M-Warmstart auszuführen 
(wie JMP $3D0 unter DOS). 


5. Die Adressierungsarten 

Der in Z80-Assembler-Programmen wohl 
am häufigsten vorkommende Befehl ist 
der LD-Befehl = Lade-Befehl. Grund: Er 
vereinigt in sich alle 6502-Transferfunktio- 
nen wie LDA/LDX/LDY, STA/STX/STY, 
TXA/TAX, TYA/TYA, usw... Die beim Z80 
vorkommenden Adressierungstypen sol¬ 
len deshalb an diesem Befehl erläutert 
werden - und zwar ausgehend von der 
Programmier-Praxis. Eine wichtige Nor¬ 
mierung vorweg: Die Transfer-Richtung ist 
beim LD-Befehl durch LD Ziel,Quelle ge¬ 
geben. Sinngemäß gilt diese Normierung 
auch für alle anderen Befehle. 

5.1. Laden von Konstanten (8/16 Bits) 
in Register („immediate“) 

Mit 

LD A,27h 

wird A mit hexadezimal 27 geladen. Statt A 
kann natürlich jedes andere 8-Bit-Register 
A-L verwendet werden. Im Z80-Assem- 
bler werden Hex-Zahlen durch Anhängen 
von „h“ (oder „H“) gekennzeichnet (ent¬ 
spricht also dem vorangestellten #$ beim 
6502). Um Verwechslungen mit Adreßbe- 
zeichnungen zu vermeiden, wird z.B. die 
Hex-Zahl FF als OFFh notiert. Das Voran¬ 
stellen von „0“ verhindert, daß der As¬ 
sembler FF oder FFh als Namen einer 
Speicherzelle interpretiert. 

Konstanten mit 16 Bits Länge können in 
BC-DE-HL-SP-IX-IY geladen werden. 
Beispiel: 

LD HL,0FF3Ch 

LD IX,73Ah ; = 073Ah 

5.2. Register 1 nach Register 2 schieben 

Beispiel: 

LD A.H 

Hier wird H nach A transferiert - und nicht 
umgekehrt. (Haben Sie sich schon daran 
gewöhnt? Nebenbei bemerkt entspricht 
diese Definitionsrichtung auch derjenigen 
beim CP/M-Betriebssystem. Denken Sie 
an PIP oder REN.) Jede andere Kombina¬ 
tion von 8-Bit-Registern ist möglich. 
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Die 16-Bit-Register kann nnan nicht auf 
diese Weise transferieren. Ausnahme; das 
SP-Register kann von HL-IX-iY geladen 
werden. Korrekt ist also 

LD SP,HL 
LD SP,IX : oder lY 

Es existiert aber kein Befehi, der etwa BC 
nach HL lädt. Hierfür könnte man aber z.B. 
die folgenden Anweisungen benutzen: 

PUSH BC 
POP HL 
oder 
LD H,B 
LD L,C 

Speziell für die Register DE und HL kann 
man auch den EX{change)-Befehl aus¬ 
nutzen: 

EX DE,HL 

Hierdurch werden die Registerinhalte aus¬ 
getauscht (was nicht ganz der gestellten 
Aufgabe entspricht, aber.oft sehr nützlich 
ist). Andere Kombinationen der Vorder¬ 
grund-Register sind bei EX nicht möglich. 

5.3. Transfer Register ^ Speicher und 
umgekehrt 

Hier gibt es eine ganze Reihe von Alterna¬ 
tiven. 

5.3.1. Absolute Adressierung 

Nach dem Schema LD (Adresse),A wird 
das A-Register an die angegebene Adres¬ 
se transferiert. (Umgekehrter Fall: LD 
A,(Adresse)). Für die anderen 8-Bit-Regi- 
ster existieren keine entsprechenden Be¬ 
fehle. Beispiel: 

LD (ZELLE1 ),A ; schiebt A nach ZELLE1 

Alle 6502-Anwender werden spätestens 
jetzt nachdenklich (oder schon oben bei 
dem Stack-Beispiel?). Beim 6502 bedeu¬ 
tet das Einklammern der Adresse nämlich 
eine indirekte Adressierung, d.h. A würde 
nicht nach ZELLE1, sondern (zumindest 
theoretisch) in die Speicherzelle transfe¬ 
riert, auf die ZELLE1 zeigt. Anders beim 
Z80: Das Einklammern „(ZELLE1)“ ist 
gleichbedeutend mit „Inhalt von ZELLE1 “. 
Ohne Klammerung bedeutet „ZELLE1“ 
nunmehr „Adresse von ZELLEV. (Beim 
6502 wird dieser Fall durch Voranstellen 
von # oder / behandelt.) Hierbei handelt 
es sich um eine Immediate-Adressierung, 
da „ZELLE1“ vom Assembler ja einen 
(16-Bit-)Wert zugeordnet bekommt. 

Bei den 16-Bit-Registern hat man mehr 
Möglichkeiten bei der Registerauswahl. 


Der Formalismus ist hier LD (Adresse),r16 
bzw. LD r16,(Adresse) (mit r16 = BC-DE- 
HL-SP-IX-IY). Vergleichen Sie jetzt noch 
einmal das Beispiel bei der Stack-Bearbei¬ 
tung mit LD SP,STACK. Hier wird die 
Adresse (!) von STACK nach SP geladen. 

5.3.2. Indirekte Adressierung (mitZeigern) 

Sofort ein Beispiel: Hat das Register HL 
den Inhalt 0179h, so bewirkt der Befehl 

LD A,(HL) 

daß der Inhalt der Speicherzelle 0179h 
nach A transportiert wird. HL enthält also 
den Adreßzeiger. Bei Registern bedeutet 
also (...) tatsächlich indirekte Adressierung 
(ein wenig verwirrend?). Das Beispiel ent¬ 
spricht etwa dem 6502-Fall „LDA (ZEI¬ 
GER),X“, wenn die Zellen ZEIGER/ZEI- 
GER-hI die Inhalte $79, $01 haben und X 
mit 0 geladen ist. 

Die Indexregister IX und lY können eben¬ 
falls als Zeiger verwendet werden (mit 
Offset 0, vgl. 5.3.3). Als Zeiger können 
beim Z80 auch die Register BC und DE 
dienen, sofern das Ziel oder die Quelle 
das A-Register ist. Mit 

LD (BC),A 

wird der Inhalt von A nach der Zelle trans¬ 
feriert, auf die BC zeigt. Für alle anderen 
8-Bit-Register dürfen nur HL-IX-IY als Zei¬ 
ger verwendet werden. 

Ein indirektes Laden von 16-Bit-Werten (2 
Speicher-Bytes) etwa nach BC (vom Typ 
„LD BC,(HL)“) ist prinzipiell nicht möglich 
- muß also in 2 Transfers (je ein Byte) 
aufgelöst werden. Ausnahme ist die Ver¬ 
wendung von SP im Rahmen eines EX- 
Befehls. Die Anweisung 

EX (SP),HL 

tauscht HL mit dem Speicherplatz, auf den 
SP zeigt, aus. Statt HL sind wiederum 
auch IX-IY möglich. 

5.3.3 Indizierte Adressierung (mit IX/IY- 
Register) 

Die Indexregister IX und lY lassen sich 
nicht direkt mit dem X- und Y-Register des 
6502 vergleichen - eher stellen sie einen 
Ersatz für die Zero-Page-Adressierung 
dar. Die Befehlsfolge 

LD IX,200h 
LD A,(IX) 

lädt den Inhalt der Speicherzelle 0200h 
nach A. Damit liegt praktisch die indirekte 
Adressierung wie unter 5.3.2 beschrieben 
vor. Von der Ausführungsgeschwindigkeit 


her sind in jedem Fall die Register BC-DE 
(sofern zulässig) und HL vorzuziehen (vgl. 
die Operationstabellen im Anhang)! In¬ 
teressant werden die Indexregister erst 
durch die Möglichkeit, noch Offsets ein¬ 
bauen zu können. Die formale Schreibwei¬ 
se lautet (für das Beispiel oben) LD 
A,(IX+d). Will man etwa den Inhalt von 
0210h nach A laden, so verfährt man wie 
folgt: 

LD IX,200h 
LD A,(IX+10h) 

Der Offset 10h wird vor der Ausführung 
des 2. Befehls zu IX addiert (intern, ohne 
IX zu verändern) und adressiert somit die 
Zelle 0210h. Das gleiche Resultat erzielt 
man aber auch mit dem einzigen Befehl 
LD A.(210h). Wozu also das ganze? Neh¬ 
men wir an, 0200h ist die Anfangsadresse 
einer Tabelle, die im folgenden intensiv 
bearbeitet wird. Mit LD IX,200h setzt man 
das Indexregister auf den Tabellenanfang. 
Von nun an braucht man nur noch mit den 
relativen Adressen (den Offsets) zu arbei¬ 
ten - Beispiel: 

LD IX,TAB : Adresse (!) von TAB 
LD A,(IX-k5) 

LD B,(lX-^27) 

LD 0,(1X4-118) 

Wird die eigentliche Verarbeitung (ab Zeile 
2) als Unterprogramm geschrieben, so ist 
man in der Lage, durch Umladen von IX 
mehrere Tabellen auf die gleiche Art und 
Weise zu bearbeiten. Statt IX kann überall 
auch lY verwendet werden. Der Offset darf 
Werte zwischen 0 und 255 annehmen. 
Transferiert man Elemente einer Tabelle 1 
in eine andere Tabelle 2, so kann IX die 
Startadresse von Tabelle 1, lY die von 
Tabelle 2 enthalten; 

LD IX.TABI 
LD IY,TAB2 
LD A,(IX+17) 

LD (IY-H32),A ; TAB1 (17) ^ TAB2(32) 

LD A,(IX-L99) 

LD (IY-h33),A : TAB1 (99) ^ TAB2(33) 

6502-Kenner werden bei der Aufzählung 
der Adressierungsarten die echte Zero- 
Page-Adressierung vermißt haben. Eine 
solche existiert beim Z80 nicht. (Eine ge¬ 
wisse Ausnahme bildet der hier nicht be¬ 
handelte Interrupt-Befehl RST.) 


6. Arbeiten mit Z80-Debuggern 

Jetzt wird es ernst. Die bis hierhin graue 
Theorie soll am Rechner verifiziert wer¬ 
den. Vielleicht hatten Sie schon die Idee, 
die vorgestellten Assembler-Zeilen einzu- 
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tippen und auszuprobieren. Genau darum 
geht es in diesem Abschnitt. Den einfach¬ 
sten Zugang bieten Debugger wie DDTZ 
oder ZSID (die mit DDT in der Bedienung 
praktisch übereinstimmen). Hiermit ist 
man in der Lage, Programme'schrittweise 
auszuführen und zu überwachen (ähnlich 
wie beim alten 6502-Monitor mit STEP/ 
TRACE-Betrieb bzw. dem exzellenten 
BUGBYTER, der ja auch unter ProDOS 
verfügbar ist). Die nachfolgenden Details 
gelten explizit für ZSID. 

6.1. Eingabe von Befehlszeilen 

Nach dem Start des Debuggers geben Sie 
A (wie „Assemblieren“) und eine Adresse 
ein. Vorschlag: A100. (Auf die Speicher¬ 
verwaltung und die freien Bereiche kom¬ 
men wir später zu sprechen.) Im Bild er¬ 
scheint jeweils links der aktuelle Adreß¬ 
zähler. Man gibt nun etwa die obigen As¬ 
sembler-Zeilen ein. Dabei müssen Sie alle 
symbolischen Namen (TAB1, TAB2, ...) 
durch feste Adressen ersetzen. Wählen 
Sie hierfür glatte Adreßwerte in der 
Größenordnung 1000h, 1100h, ... Eine 
Leerzeile beendet die Eingabe. 

6.2. Kontrolle der Befehlszeilen 

Das Gegenstück zum Assemblieren ist 
das Disassemblieren. Wie beim 6502-Mo- 
nitor ist hierfür „L“ das Schlüsselzeichen. 
Geben Sie LI 00 ein und kontrollieren Sie 
Ihre ersten Z80-Befehle. 

6.3. Registerinhalte ein-/ausgeben 

Der Formalismus ist Xreg<Return>. Da¬ 
bei ist „reg“ die Registerbezeichnung in 
abgekürzter Form: P(C), (l)X, (l)Y, B(C), 
D(E), H(L), A, ... - der eingeklammerte 
Buchstabe entfällt. Der jeweilige Register¬ 
inhalt wird angezeigt, man kann nun den 
gewünschten Wert eingeben. Mit <Re- 
turn> übernimmt man den alten Wert. Mit 
X<Return> erhält man alle Register auf 
einen Blick. Die Status-Bits werden mit 
Xs<Return> abgerufen/eingegeben. Da¬ 
bei ist für s zu setzen: C = Carry, M = 
Sign-Flag, Z = Zero, E = Parity/Overflow 
und I = Half-Carry. Das N-Flag wird nicht 
separat behandelt. 

6.4. Eingabe/Ausgabe von Daten 
oder einzelnen Bytes 

mit Dadr <Return> bzw. Dadr1 ,adr2 
<Return> lassen sich Hex-Dumps ausge¬ 
ben. Eingabe einzelner Bytes geht wie 
folgt: Sadr <Return> (S = Substitute). 
Angezeigt wird die laufende Adresse (be¬ 
ginnend ab „adr“) und der alte Speicher¬ 
inhalt. Danach geben Sie das neue Byte 
ein. Dieses Frage- und Antwort-Spiel wie¬ 


derholt sich solange, bis ein Punkt als 
Ende-Kriterium eingegeben wird. 

6.5. Programmstart/Haltepunkte 

Geben sie beim Aufruf des Debuggers 
sofort einen File-Namen an (Beispiel: 
ZSID TEST.COM), so wird das entspre¬ 
chende Programm in den Speicher gela¬ 
den. Geben Sie nun als erstes (im Bei¬ 
spiel) ITEST.COM ein. Hiermit wird der 
File-Name TEST.COM als Workfile festge¬ 
legt. Ist nämlich während des Testbetriebs 
das Programm zerstört worden, so läßt es 
sich nunmehr mit R<Return> neu laden. 
Mit Gadr <Return> oder G <Return> 
wird das Testprogramm ab adr oder beim 
PC-Stand (= 0100h nach dem Laden) ge¬ 
startet. Soll das Programm bei bestimmten 
Haltepunkten hpl, hp2,... stoppen, so gibt 
man Gadr,hp1 ,hp2,...<Return> oder 
G,hp1 ,hp2,...<Return> ein. Die Programm¬ 
ausführung wird unterbrochen, sobald eine 
der Teststopp-Adressen hpl, hp2, ... er¬ 
reicht ist. 

6.6. TRACE-Betrieb 

Die Anweisung T <Return> (= „TRAGE“) 
führt jeweils einen Befehl aus. Angezeigt 
werden alle Registerinhalte vor (!) der Be¬ 
fehlsausführung, sowie der ausgeführte 
Befehl. Wie unter 6.3 beschrieben, kann 
man jetzt die aktuellen Registerinhalte in¬ 
spizieren. Einfacher ist es meist, mit 
T(RACE) fortzufahren und die neuen Regi¬ 
sterinhalte im nächsten Schritt zu sehen. 
Durch T20 <Return> können Sie bei¬ 
spielsweise 20 Befehle ohne Unterbre¬ 
chung durchlaufen und bekommen fortlau¬ 
fend alle Register angezeigt. 

Falls der Leser noch keine Erfahrungen 
mit Debuggern hat, könnten sich die 
„sample sessions“ mit DDT in der CP/M- 
Beschreibung als sehr nützlich erweisen. 
In jedem Fall ist ein gewisses Training mit 
einem Z80-Debugger sehr empfehlens¬ 
wert. 


7. Spezielle Z80-Befehle 

Nach den Beispielen zur Adressierung 
und möglicherweise ersten Testerfahrun¬ 
gen nun ein Blick auf die Operationsta¬ 
bellen im Anhang. In der 1. Gruppe sind 
Befehle aufgeführt, die von der Struktur 
her 16-Bit-Befehle sind. Danach folgen die 
Verzweigungsbefehle. In Gruppe 3 sind 
die 8-Bit-Befehle dargestellt. Der LD-Be- 
fehl und einige andere tauchen naturge¬ 
mäß in der 8- und 16-Bit-Gruppe auf. Die 
Tabellen zeigen, daß der Z80-Prozessor 
Befehle mit einer Länge zwischen 1 und 4 
Bytes kennt. Aus Gründen des Aufwands 
kann nur ein Teil der Operationen ausführ¬ 
licher besprochen werden. 


7.1. ADD/SUB und ADC/SBC 

Im Gegensatz zum 6502 existieren hier 
mit ADD und SUB auch Befehle, die bei 
der Ausführung ein evtl, gesetztes Carry- 
Bit nicht berücksichtigen. Beide Typen von 
Operationen setzen aber das C-Flag nach 
Ausführung entsprechend dem Ergebnis. 
Einfache Additionen (OP1) + (OP2) -> 
(OP3) sehen aus, wie in Abb. 3 wiederge¬ 
geben. 




LD A.fOPU 

LD HU.f.OFit 

LO HtpOPß 

LD 

ASÖ AjHLi 

ADD HL.BC 

LD fflraj.A 

io tÜPBhHL 

3^ Addltlonab«lB{ibl 



Die 16-Bit-Addition läßt sich natürlich auch 
in 2 * 8 zerlegen. Am Beispiel ist zu 
erkennen, daß HL die Rolle eines 16-Bit- 
Akkumulators hat. Für Subtraktionen geht 
man analog vor. Ein SUB existiert für 16- 
Bit-Subtraktion nicht - nur SBC. 


7.2. INC und DEC 

Bei den 8-Bit-Operanden ist die Funktion 
von INC/DEC wie beim 6502. Wichtig bei 
16-BiHOperanden ist aber, daß die Flags 
unbeeinflußt bleiben. Steht HL etwa auf 1, 
so ist nach Ausführung von DEC HL das 
Z-Flag nicht (!) gesetzt. Zum Test auf 0 
muß vielmehr ein CP-(Compare-)Befehl 
verwendet werden. 


7.3. DAA 

Beim 6502 ist man gewöhnt, durch SED/ 
CLD die BCD-Arithmetik zu aktivieren 
oder auszuschalten. Beim Z80-Prozessor 
geht man etwas anders vor. Hier wird nach 
der jeweiligen Operation der Anpassungs¬ 
befehl DAA benutzt. Das N-Flag im Sta¬ 
tus-Register ist nach vorausgegangener 
Addition auf 0, bei Subtraktion auf 1 ge¬ 
setzt. Ergibt sich im Register bei der arith¬ 
metischen Operation ein Übertrag vom 
unteren Nibble zum oberen, so wird das 
H-Flag (Half Carry) gesetzt. Mit Hilfe die¬ 
ser Flags (evtl, auch noch C-Flag aus vor¬ 
ausgegangener Operation) korrigiert der 
DAA-Befehl das arithmetische Ergebnis 
im Sinne der BCD-Logik. Einfaches Bei¬ 
spiel: 

LD A,27h 

ADD A,38h ; Ergebnis: 5Fh 
DAA : Ergebnis: 65h 

Dieser mächtige DAA-Befehl wirkt aller¬ 
dings nur bei 8-Bit-Arithmetik. 
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7.4, AND, XOR und OR 

Die Funktionsweise dieser 8-Bit-Befehle 
dürfte hinlänglich bekannt sein. Wichtige 
Anmerkung: Nach Ausführung dieser 
Operationen ist das Carry-Bit auf 0 ge¬ 
setzt. Da der Z80 keinen Befehl zum Lö¬ 
schen des Carry-Bits kennt, wird hierzu 
häufig etwa XOR A (löscht gleichzeitig A- 
Register), AND A oder OR A verwendet. 


7,5. CP 

Mit CP läßt sich das A-Register mit jedem 
anderen Register, einem Immediate-Wert 
oder einer Speicherzelle vergleichen (im 
Sinne einer internen Subtraktion). Für die 
möglichen Adressierungen vergleiche 
man die Tabellen. Ein wesentlicher Unter¬ 
schied zum 6502: Das Carry-Bit wird ge¬ 
nau entgegengesetzt verwendet. Die Be¬ 
fehle LD A,5 und CP 6 setzen beim 280 
das Carry-Flag zu 1 ((A) < Operand ). 
Beim 6502 ergibt LDA #$05 und CMP 
#$06 gerade 0 = 0. 


7,6. JP und JR 

Neben dem Standard-Sprungbefehl JP 
gibt es hier ähnlich wie beim 65C02 einen 
relativen Jump JR. Die Sprungdistanz muß 
effektiv zwischen -126 und +129 liegen. 
Sowohl JP als auch JR (mit Einschränkun¬ 
gen) können noch von Bedingungen ab¬ 
hängig gemacht werden - wie die Tabelle 
im Anhang zeigt. Die Kürzel haben dabei 
(wie auch für CALL/RET) folgende Bedeu¬ 
tung: NZ (Not Zero, Z-Flag = 0), Z (Zero, 
Z = 1), NC (No Carry, C = 0), C (Carry, C 
= 1), PE (Parity Even/gerade Anzahl von 
len, P/V = 1), PO (Parity Odd/ungerade, 
P/V = 0), P (Positive, S-Flag = 0), M 
(Minus, S = 1). 

Ein indirekter Sprung (wie beim 6502 z.B. 
JMP (KSW)) ist beim Z80 über Register 
möglich, und zwar mit HL-IX-IY als Adreß- 
zeiger, also z.B. JP (IX). 

Eine spezielle Z80-Befehlsgruppe bilden 
die Blockbefehle. Man erkennt sie daran, 
daß den Mnemonics LD und CP noch die 
Kürzel 1, D, IR oder DR angehängt sind. 
Mit diesen Befehlen ist es möglich, durch 
einen Befehl Speicherblöcke zu verschie¬ 
ben oder nach einem festen Byte abzusu¬ 
chen. Das I bedeutet „Inkrement“, D „De¬ 
krement“ und R „Repeat“. 


7.7, LDIR/LDDR (und LDI/LDD) 

Enthält HL den Zeiger auf die Quelle, DE 
den Zeiger auf das Ziel, so werden soviele 
Bytes von Quelle nach Ziel transferiert, 
wie das Zählregister BC angibt. Bei den I- 


Befehlen werden die Zeiger dabei inkre- 
mentiert (Transfer vorwärts), bei D dekre- 
mentiert (Transfer rückwärts). Beispiel: 

LD BC,100h ; 256 Bytes 
LD HL,TAB1 
LD DE,TAB2 
LDIR 

Hier wird der Bereich TAB1 + 0 bis TAB1 
+ 255 nach TAB2 verschoben. 

Die Befehle LDI/LDD sind als Vorstufe zu 
LDIR/LDDR anzusehen. Ihnen fehlt das 
„Repeat“, sie inkrementieren/dekremen- 
tieren aber die Zeiger HL/DE/BC nach 
jedem (Einzel-)Transfer. 


Shift leff; 


SLA 


Operand 


Shiff right arith..* 


SRA 



Shift right: 


SRL 

Abb. 4 


Operand 


7.8, CPIR/CPDR (und CPI/CPD) 

Hiermit läßt sich ein Speicherblock nach 
einem Byte durchsuchen. Das Ergebnis 
(gefunden/nicht gefunden) zeigt sich im 
Parity-Flag. Beispiel: Durchsuchen von 
TAB (Länge 4K) nach 

LD HL,TAB ; Startadresse 
LD A,; Muster 
LD BC,1000h: Anzahl Bytes 
CPIR ; Blockvergleich 

JP PE,FOUND 
JP PO,NOTFND 

Beim Ausgang FOUND enthält HL die um 
1 erhöhte Adresse des gefundenen Bytes 
(hier „^“). Die Befehle ohne Repeat- 
Funktion sind CPI/CPD. 


7.9. LD-Nachtrag 

Zu den LD-Befehlen sind zwei wichtige 
Nachträge erforderlich: 

a) Dieser Befehl setzt keine Flags! Die 
beim 6502 übliche Programmierung indi¬ 
rekter Sprünge (z.B. LDA #$00 und BEO 
... ) ist beim Z80 nicht möglich, da LD A,0 
kein Z-Flag setzt. Als Ersatz stehen aber 
für das erwähnte Problem einfachere rela¬ 
tive Sprungbefehle zur Verfügung. 

b) Das 16-Bit-LD-z.B. LD (ZELLE),HL- 
schreibt den Registerinhalt im Low/High- 
Format in den Speicher, bzw. interpretiert 
den Speicherinhalt als Low/High beim 
Transfer in ein Register. Hat HL den Inhalt 
55FFh, so steht im Beispiel ab ZELLE FFh, 
55h. Mit LD HL,(ZELLE) würde in HL wie¬ 
der 55FFh stehen. 


7.10. Schiebebefehle 

Bei den Schiebe- und Rotationsbefehlen 
reicht es, dem Assembler-Kenner die fol¬ 
genden Skizzen zu präsentieren: 


Beim arithmetischen Rechtsschieben SRA 
wird das Vorzeichen-Bit reproduziert, 
beim SRL dagegen eine 0 nachgezogen. 


B-Bif-Rotation 


RLC 

RLCA 

RRC 

RRCA 



9-Bit-Rofafion 


RL 

RLA 

RR 

RRA 

Abb. 5 



Die Rotationsbefehle unten wirken prak¬ 
tisch auf 9 Bits (8 Register-Bits + Carry- 
Bit), oben auf 8 Bits. Die Befehle RLA, 
RRA, RLCA, RRCA adressieren (implizit) 
nur das A-Register, während die anderen 
Befehle auf verschiedene Operanden wir¬ 
ken können. 


7.11. RLD/RRD 

Über die im vorausgehenden Abschnitt 
behandelten Verschiebe-Befehle hinaus 
hat der Z80-Prozessor noch 2 Leckerbis¬ 
sen parat: Nibble-Rotation RLD und RRD. 
Diese 4-Bit-Verschiebe-Befehle sind her¬ 
vorragend im Rahmen der BCD-Arithmetik 
(aber nicht nur dort!) einsetzbar. 
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A-Register Operand 



RLD 


A-Register Operand 




Abb.6 


Die Befehlsfolge 
LD HL.BCD 

LDA,(ASCII) ; A:39 BCD:?? 

RLD : A:3? BCD:?9 

LDA,(ASCII + 1) ■ A:31 BCD:?9 
RLD ; A:3? BCD:91 

ASCII: DB 39h,31h ; = ASCII '91’ 

BCD: DS1 


wandelt die ASCII-Zeichenfolge „91" in 
die gepackte BCD-Darstellung um. Hierzu 
muß HL auf die Adresse zeigen, in der der 
BCD-Wert abgelegt werden soll. Mit ei¬ 
nem äußeren Loop lassen sich auch län¬ 
gere Strings von ASClI-Ziffern in BCD- 
Form umwandeln. (Versuchen Sie das 
doch einmal selbst! Vorschlag: DE zeigt 
auf ASCII, Loop-Counter in B, ...; lesen 
Sie noch die Erläuterungen zu DJNZ) 


7.12. BIT, SET und RES 

Die Befehle SET und RES setzen im Ope¬ 
randen ein Bit oder löschen es. Der BIT- 
Befehl testet den Operanden auf ein kon¬ 
kretes Bit und setzt das Z-Flag nach fol¬ 
gendem Schema: 

Bit im Operand = 1 ^ Z-Flag = 0 
Bit im Operand = 0 ^ Z-Flag = 1 

Beispiel: 

MUSTER: DB 17h 

LD HL,MUSTER 
BIT 4,(HL) 

Die Bit-Numerierung beginnt mit 0 von 
rechts. Im Beispiel wird das Z-Flag auf 0 
gesetzt. 


7.13. CALL und RET 

Diese Befehle sind funktionsgleich mit 
JSR/RTS beim 6502. Beim Z80 kann man 
die Ausführung der Befehle aber noch von 
Bedingungen abhängig machen. Mit 

CALLNZ,SUB 

wird das Unterprogramm SUB nur dann 
durchlaufen, wenn das Ergebnis der vor¬ 
ausgegangenen Operation <> 0 war. Ent¬ 
sprechende Möglichkeiten sind auch beim 
RET-Befehle gegeben. 


7.14. DJNZ 

Dieser Spezialbefehl (Decrement and 
Jump if non-zero) erleichtert die Program¬ 
mierung von Schleifen ungemein. Bei¬ 
spiele: 

LD B,COUNT 
LOOP:... 

DJNZ LOOP 

oder 

LD B.COUNTI 
LOOP1: PUSH BC 

LD B,COUNT2 
LOOP2:... 

DJNZ LOOP2 

POP BC 
DJNZ LOOP1 

Das B-Register muß stets den Schleifen¬ 
zähler enthalten. DJNZ dekrementiert den 
Zähler und verzweigt nach der angegebe¬ 
nen Adresse, wenn der Zähler <> 0 ist. 
Der Startwert in B gibt also exakt die An¬ 
zahl der Schleifendurchläufe an. Im obe¬ 
ren Beispiel liegt eine einfache Schleife 
vor, darunter ein Beispiel mit einer 
Schachtelung. Der jeweils äußere Schlei¬ 
fenzähler wird auf dem Stack zwischenge¬ 
speichert. Auf diese Weise lassen sich 
auch Schachtelungen mit größerer Tiefe 
leicht programmieren. 


8. Der MACROSO-Assembler 

Wie schon in der Einleitung gesagt, ist der 
CP/M-elgene Assembler ASM.COM ein 
8080-Assembler, d.h. er verarbeitet nur 
Programme in 8080-Normierung. Dies wä¬ 
re tragbar, wenn er zumindest makro-fähig 
wäre. Man könnte dann die Z80-Opcodes 
in Form von Makros definieren. Im Gegen¬ 
satz dazu ist der MACRO80-Assembler 
(von Microsoft) ein Cross-Assembler, der 
(fast) keine Wünsche offen läßt. Quellpro¬ 


gramme können in 8080-, 6502-, Z80- 
Normierung geschrieben sein (sogar ge¬ 
mischt im gleichen Programm). Assem- 
bler-Listings können in Files ausgegeben 
werden. Cross-Reference ist möglich (Zu¬ 
satzprogramm CREF80). Der Object-Code 
wird in Form von verschieblichen (relokati- 
ven) Modulen hergestellt. Es ist klar, daß 
hier nicht alle Features in voller Breite 
behandelt werden können. Die nachfol¬ 
gende Auswahl orientiert sich an den Er¬ 
fordernissen des Z80-Einsteigers, bringt 
aber darüber hinaus die Makro-Behand- 
. lung und (in Beispielen) weiteres Material, 
das Ausgangspunkt für eigene Experi¬ 
mente sein soll. 


8.1. Aufruf des Assemblers 

Die Start-Anweisung lautet: 

MACRO80 object,list=source/switch 

Hierin ist „object" der File-Name des er¬ 
zeugten Code-Files. Die Default-Exten¬ 
sion Ist „.REL". Die Angabe „Hst" bezieht 
sich auf die Ausgabe des Assembler-Li- 
stings: Üblicherweise ist hierfür entweder 
„TTY:“ (Ausgabe auf Bildschirm), „LST:" 
(Ausgabe auf Drucker) oder ein File-Name 
(Default-Extension „.PRN") zu schreiben. 
Während „object" und „list“ optional sind, 
muß für „source" stets ein File-Name 
(Default-Extension „.MAC") angegeben 
werden. Läßt man die Laufwerksbezeich¬ 
nungen weg, so wird natürlich stets das 
aktuelle Laufwerk angesprochen. 

Ist beispielsweise das Quellprogramm 
TEST.MAC zu assemblieren, so bewirkt 
MACRO80 =TEST das Ablegen des Ob¬ 
ject-Codes in TEST.REL. Ein Listing wird 
nicht erzeugt. Mit MACRO80 TEST,TTY: 
=TEST wird Object-Code in TEST.REL 
und das Listing auf den Bildschirm ausge¬ 
geben. Die Sequenz MACRO80 ,TTY: 
=TEST unterdrückt den Object-Code. 

Von den diversen Switches in der Kom¬ 
mando-Zeile sollen nur die folgenden be¬ 
handelt werden: 

/C erzeugt einen speziellen File für das 
CREF80-Programm. 

/Z legt den Assembler beim Start auf Z80- 
Code fest. (Manche Versionen sind beim 
Start sonst auf 8080-Normierung festge¬ 
legt. Ausprobieren!) 

Beispiel für die Schreibweise: 

MACRO80 TEST, LST: =TEST/Z/C 


8.2. Die Quellprogramm-Normierung 

Die verschiedenen Felder einer Assem¬ 
bler-Zeile werden durch mindestens ein 
Leerzeichen oder Tab-Zeichen getrennt. 
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. Z80 

: kann ggf, entfallen 


. COMMENT > 

t Dies ist ein Anweisungsteil 

mit den gebräuchlichsten Definitionen 
und Datentypen # 

DB = Define Byte(s) DC = Def. Char. 

DS = Def. Storage DW = Def. Word 


DB "ASCII-Zeichenkette" 

statt " kann auch ' verwendet werden 


DB "Textl","Text2" 

mehrere Einträge möglich 


DB 'QU'’OTE’ 

ergibt QU'OTE 


DB 22,27 

Standard-Basis ist 10 


DB 0FFh.7Fh 

Hexadezimal 


DB "TEST" 

ergibt 54 45 53 54 


DC "TEST" 

ergibt 54 45 53 D4 (high Bit!) 


DW 77FFh 

ergibt im Speicher FF 77 

BDOS 

EQU 0005h 

EQU wie beim 6502 

WÄRMST 

EQU BDOS-5 

= 0000h 

PLATZ: 

DS 512 

reserviert 512 Bytes 

NEXT 

EQU $ 

$ = Wert des Adreßzählers (PLATZ + 512) 

ENDE 

EQU $-1 

ENDE = Adresse PLATZ + 511 

BYTEl 

EQU LOW NEXT 

= Low-Order-Byte der Adresse von NEXT 

BYTE2 

EQU HIGH NEXT 

= High-Order-Byte 

HEX 

Abb. 7 

EQU 113 MOD 64 

= 49 


Kommentare werden durch Voranstellen 
von gekennzeichnet (Ausnahme: spe¬ 
zielle COMMENT-Anweisung). Alle Labels 
(= Adreßdefinitionen) müssen durch 
abgeschlossen werden. Ausnahmen bil¬ 
den nur die EQU- und ASET-Anweisun- 
gen. Beispiel: 

DATA: DS 5 ; reserviert 

5 Speicherplätze 

XP EQU DATA 

Z ÄSET 4 : ÄSET wirkt wie EQU 

START: LDA,DATA-h2 

MOVE: LD(DATA),A 
Z ÄSET 7 : Redefin. bei ÄSET 

erlaubt 

: nicht aber bei EQU 

END 

Mit diesem 7-Zeilen-Dummy-Programm 
(ohne die Zwischenraum-Punkte) können 
Sie Ihren MACRO80 ausprobieren, insbe¬ 
sondere die Z80-Voreinstellung überprü¬ 
fen. Sollten Sie die 8080-Version haben, 
werden insbesondere die beiden LD-Zei- 
len als fehlerhaft gemeldet. Verwenden 
Sie dann beim Start von MACRO80 den 
/Z-Switch oder im Quellprogramm den 
Pseudo-Op „.Z80“. (Wollen Sie einmal 
doch 8080-Programme übersetzen - oder 
gar 6502-Programme so ist dem betref¬ 
fenden Programmteil ...8080“ oder 
„.6502“ voranzustellen.) 

8.3. Vereinbarungsteil 

Statt vieler Worte ein selbsterklärendes 
Beispiel für einen Vereinbarungsteil in 

Abb.7 


Trotz gegenteiliger Aussage in der MACRO- 
80-Beschreibung, sollte man nur Labels 
mit 6 oder weniger Zeichen definieren. 
Probleme, insbesondere bei Makro-Erset¬ 
zungen, sind sonst unvermeidlich (zumin¬ 
dest bei der im Test verwendeten Version 
3.36 von MACRO80). 

Noch eine Bemerkung zu DW: Die As¬ 
sembler-Darstellung High/Low entspricht 
der Registerdarstellung, während im Spei¬ 
cher ja nach Low/High-Muster abgelegt 
wird. 


8.4. Die Makro-Technik 

Die im Apple-6502-Bereich vorhandenen 
Assembler besitzen teilweise die Makro- 
Fähigkeit (z.B. Merlin/BIG MAC, MACRO- 
SOFT, ORCA, ... : nicht aber LISA). Der 
MACROSO-Assembler für Z80-Code er¬ 
laubt es, Makros vorab im Programm zu 
definieren oder/und eine Makro-Bibliothek 
(oder auch mehrere) von einem Disk-File 
einzulesen. Der Formalismus ist hierbei 
folgender: 

Makros programmintern 
MACNR1 MACRO dummyl ,dummy2,... 
ENDM 

MACNR2 MACRO dummyl ,dummy2,... 
ENDM 

(Beginn des Programms)* 
Makro-Bibliothek 
IF1 

INCLUDE MACROS.LIB 
ENDIF 

(Beginn des Programms) 


Die Pseudo-Operation „MACRO" defi¬ 
niert den links stehenden Namen (also 
MACNR1, MACNR2) als Makro, rechts 
stehen die formalen Parameter, für die 
später aktuelle Werte eingesetzt werden 
müssen. Die Anweisung „ENDM“ schließt 
die jeweilige Makro-Definition ab. Die 
Pseudo-Operation „INCLUDE“ benennt 
den rechts stehenden File-Namen als Ma¬ 
kro-Bibliothek. Dieser File wird während 
der Assemblierung eingelesen - und zwar 
normalerweise in jedem Assembler-Pass. 

Die oben stehenden Anweisungen IF1 .... 
ENDIF beschränken diesen Vorgang auf 
den ersten Assembler-Pass. Es bedeutet 
„1F1“ nämlich „falls im 1. Pass“. (Dies ist 
ein Beispiel für eine bedingte Assemblie¬ 
rung, hierzu später mehr.) 

Diese Methodik hat noch zwei weitere 
Vorteile: Sie vermeidet die zeitaufwendige 
Redefiniton der Makros im 2. Pass und 
unterdrückt die Auflistung der (evtl, lan¬ 
gen) Makro-Bibliothek im Assembler-Li- 
sting (alle Listings werden im 2. Pass er¬ 
stellt!). 

Nun zu praktischen Beispielen für Makros. 
Betrachten wir den Fall, daß der Inhalt von 
SZ1 nach SZ2 transferiert werden soll. 
Normales Coding wäre z.B. 


LD A,(SZ1) 
LD (SZ2),A 


Die Makro-Definition 

MOVE MACRO ZIEL,QUELLE 
LD A,(QUELLE) 

LD (ZIEL),A 
ENDM 

liefert mit dem Aufruf „MOVE SZ2,SZ1“ 
das gleiche Resultat. Weitere einfache Ma¬ 
kro-Beispiele enthält die Makro-Liste am 
Ende des Artikels. Zum Teil wird dabei die 
LOCAL-Anweisung verwendet. Sie be¬ 
wirkt, daß die folgenden Labels nur inner¬ 
halb des betreffenden Makros bekannt 
sind. 

Im Rahmen der Makro-Technik sind auch 
die bedingte Assemblierung und die Re- 
peat-Funktion (Wiederholung von Assem¬ 
bler-Zeilen) von Bedeutung. Hierzu ein 
Beispiel, das Ausgangspunkt für weitere 
eigene Experimente sein soll. Problem¬ 
stellung: Ab Adresse OP1 stehen N Bytes, 
die eine Binär-Zahl darstellen (beginnend 
mit den Low-Order-Bytes); ab OP2 stehen 
weitere N Bytes einer 2. Zahl; diese Zahl 
soll zur ersten addiert werden („lange Ad¬ 
dition“); es soll möglichst wenig Rechen¬ 
zeit verbraucht werden. Wegen der letzten 
Forderung verbieten sich Schleifen, viel- 
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mehr muß der Source-Code ausgeschrie¬ 
ben werden. Bei der Programm-Entwick¬ 
lung sei aber die Länge N nicht bekannt. 

Eine Lösung zeigt Abb. 8 

Mit dem Pseudo-Op JFB“ (= IF BLANK) 
wird zunächst abgefragt, ob N im Aufruf 
angegeben wurde - ersatzweise wird NN 
zu 1 gesetzt, im anderen Fall zu N. (Hier 
muß eine neue Variable NN eingeführt 
werden, da N auch im Label-Feld durch 
den aktuellen Wert ersetzt würde.) Der 
Zähler X wird zu 0 gesetzt. Der Anwei¬ 
sungsblock zwischen „REPT“ (= RE- 
PEAT) und dem ersten ENDM wird nun 
NN mal bei der Assemblierung (!) durch¬ 
laufen. (Das zweite „ENDM“ unten 
schließt die Makro-Definition ab.) Die Va¬ 
riable X wird nach jedem Schritt um 1 
erhöht. Im Anweisungsblock wird mit IFE/ 
ELSE/ENDIF der Fall X =0 von X <> 0 
getrennt. (Liest sich fast wie ein Pascal- 
Programm.) „IFE X" bedeutet „falls X = 
0 “. 

Da MACRO80 die Makros im Assembler- 
Listing ausschreibt, ist es leicht möglich, 
sich bei eigenen Experimenten von der 
Richtigkeit des Ansatzes zu überzeugen. 
Eine Schachtelung von Makros (Nesting 
Macros) ist erlaubt. Ein kurzes Beispiel 
hierzu: Es sei ein Makro DISPLAY vorhan¬ 
den zur Ausgabe von Strings auf den Bild¬ 
schirm (die Startadresse des Strings sei. 
der Parameter im Makro-Aufruf). Es soll 
ein Makro FMELD (Fehlermeldung) ge¬ 
schrieben werden, das abhängig von einer 
Fehlernummer K= 1,2, 3,... einen Text ab 
Adresse TEXT1, TEXT2, TEXT3, ... aus¬ 
gibt. 

FMELD MACRO K 

DISPLAY TEXT&K 
ENDM 

Der Parameter K wird mit dem Namen 
TEXT durch das Zeichen & verkettet. Aus 
FMELD 8 macht der Assembler DISPLAY 
TEXT8. Das Makro DISPLAY selbst kann 
intern noch auf weitere Makros zurück¬ 
greifen. 

Die wenigen hier dargestellten Möglich¬ 
keiten stellen nur einen Ausschnitt dar, in 
jedem Fall lohnt es sich, die MACRO80- 
Beschreibung durchzuarbeiten und an ei¬ 
genen Beispielen auszuprobieren. 


9. Der Linker L80 

Die von MACRO80 übersetzten Program¬ 
me werden in Form von verschieblichen 
(relokativen) Modulen ausgegeben. Diese 
müssen noch vom Linker behandelt wer¬ 
den, bevor man startfähige Programme er¬ 


Ausgeschrieben: Makro-Definition: 


LXI 

HL.0P2 

LADD 

MACRO 

0P1.0P2,N 

LD 

A,(OPI) 


IFB 

<N> 

ADD 

A,(HL) 

NN 

ÄSET 

1 

LD 

(0P1),A 


ELSE 




NN 

ÄSET 

N 

INC 

HL 


ENDIF 


LD 

A,(OPl+1) 

X 

ÄSET 

0 

ADC 

A.(HL) 


REPT 

NN 

LD 

(0Pm),A 


IFE 

X 




LD 

HL,0P2 




LD 

A,(OPI) 




ADD 

A,(HL) 




LD 

(OPI).A 




ELSE 





INC 

HL 

INC 

HL 


LD 

A.(OPl+X) 

LD 

A,(OPl+N-l) 


ADC 

A,(HL) 

ADC 

A,(HL) 


LD 

(OPl+X),A 

LD 

(OPl+N-1),A 


ENDIF 




X 

ÄSET 

X+1 




ENDM 





ENDM 



Abb. 8 


hält. Auf die spezielien Features von MA- 
CR080/L80 in diesem Bereich soll nicht 
weiter eingegangen werden. (Die sich hier 
bietenden Möglichkeiten stehen kaum zu¬ 
rück hinter den Eigenschaften von Assem¬ 
blern/Linkern bei großen Mainframes.) 
Der Standard-Aufruf für L80 lautet: 

L80 modul,comfile/N/E 

Hierin ist „modul" der Name des von MA- 
CRO80 ausgegebenen REL-Files, „com- 
file“ der File-Name für den zu erzeugen¬ 
den COM-File. („.REL“ und „.COM“ 
brauchen nicht angegeben zu werden.) 
Die Switches /N und /E bedeuten: Ab¬ 
speichern des COM-Files auf Disk und 
Beenden des Linkers. Als Startadresse 
nimmt L80 normalerweise 0100h, es sei 
denn, in der END-Anweisung des Assem¬ 
bler-Programms ist ein Adreßausdruck an¬ 
gegeben - z.B. END LAB7. Dann setzt 
L80 vor das Programm einen JP LAB7. Die 
erste Assembler-Zeile muß also nicht un¬ 
bedingt die erste auszuführende Anwei¬ 
sung beinhalten. Insbesondere kann kom¬ 
plikationslos der Vereinbarungsteil vor 
dem Anweisungsteil liegen. 


10. SUBMIT-File 

Am einfachsten ist es, sich einen SUB- 
MIT-File (z.B. mit dem Zeileneditor ED- 
.COM) herzustellen, der sowohl den As¬ 
sembler MACRO80 als auch den Linker 
L80 aufruft: 

MACRO80 %1,%1=%1/Z 
TYPE %1.PRN 
L80 %1,%1/N/E 
ERA %1.REL 


Je nach Bedarf könnte man noch ZSID 
%1.COM oder einfach %1 anfügen (De¬ 
bugger-Aufruf oder direkter Programm- 
Start). Speichert man diese Zeilen in dem 
File RUN.SUB ab, so kann man beispiels¬ 
weise mit dem Aufruf 

SUBMIT RUN TEST 

das Assembler-Programm TEST.MAC as- 
semblieren und linken. Das Listing wird 
auf dem Bildschirm ausgegeben, der 
überflüssige REL-File gelöscht. 

Wichtig: SUBMIT kann nur dann aufgeru¬ 
fen werden, wenn A: das aktuelle Lauf¬ 
werk ist. Arbeiten Sie z.B. mit 2 Laufwer¬ 
ken und haben B: als aktuelles Laufwerk, 
so funktioniert SUBMIT nicht (ausprobie¬ 
ren!). Grund (vgl. die Erläuterungen unter 
11. und 12.): Der für SUBMIT wichtige File 
$$$.SUB wird auf das aktuelle Laufwerk 
gelegt, müßte aber stets auf A: liegen (wo¬ 
von CP/M den CCP nachlädt). Mit folgen¬ 
der Änderung klappt es immer. Geben Sie 
der Reihe nach ein: 

DDTSUBM1T.COM 

S5BB <Return> 01 <Return> . <Re- 
turn> 
t C 

SAVE5SUBMIT.COM 

Vielleicht ändern Sie für die gepatchte Ver¬ 
sion den Namen ab. Die Änderung 01 
(gegenüber 00) in 5BB setzt im FCB den 
Drive-Parameter auf A:. 

11. Speicherverwaltung unter 
CP/M 2.2 

Die folgenden Erläuterungen beziehen 
sich stets auf einen 64K-Speicherausbau 
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daß hier die TPA noch entsprechend grö¬ 
ßer ist. 


OFFFh: 

Disk-Treiber/Puffer 


40-Zeichen-Bildschirmpuffer 

I/O Configurahon Block 

OFOOOh: 

6502-Srack/Zero-PQge 

OEFFh: 

I/O-Adressen (6502: $ Cxxx) 

OEOOOh; 


ODFFh: 

BIOS/Basic I/O System 

ODAOOh: 


0D9FFh: 

BDOS/Basic Disk Operating System 

OCCOOh: 


OCBFFh; 

CCP/ Console Command Processor 

OCAOOh: 


0C3FFh; 

TPA/Tronsient Program Area 

00100h: 


OOOFFh: 

System - Parameter i 

00000h: 



(48K -}- 16K-Karte). In diesem Fai! ist die 
Speicheraufteüung unter CP/M 2.2 wie in 
Abb. 9 gegiiedert. 

6502-Experten werden sich jetzt wundern, 
wieso im Bereich Cxxx System-Program¬ 
me iiegen können, da dieser Adreßbereich 
doch u.a. für die ROM-Routinen der Con- 
trolier-Karten reserviert ist. Die Lösung 
des Rätsels ist eine hardware-mäßig 
durchgeführte Adreßcodierung. Beim 
6502 ist der nutzbare Speicherplatz durch 
den CX-Bereich unterbrochen. Ohne DOS 
3.3 stehen dem Benutzer z. B. die Berei¬ 
che $800-$BFFF und (RAM-Karte) 
$D000-$FFFF (mit 2 Banks) zur freien Ver¬ 
fügung. Um die Unterbrechung zu beseiti¬ 
gen, wird bei der Z80-Softcard eine 
Adressenumrechnung nach foigenden 
Schema vorgenommen: 


6502-Bereich -> 


Z80-Bereich 


$1000-$ßFPF (- 1000) 
$D000-$FFFF (- 2000) 
$C000-$CFFF (+ 2000) 
$0000-$0FFF (- 1000) 

Abb. 10: Adreßcodierung 


00000h-0AFFFh 

0B000h-0DFFFh 

0E000h-0EFFFh 

0F000h-0FFFFh 


Das hat zur Folge, daß nunmehr unter CP/ 
M lückenlos der Bereich OOOOh-DFFFh 
genutzt werden kann. Die Umrechnungs- 
tabelie muß allerdings nur dann beachtet 


werden, wenn 

a) Koppiungen zwischen 6502- und Z80- 
Prozessor vorgesehen sind, 

b) ROM-Routinen des 6502 auch unter 
Z80 benutzt werden soiien. 

Im Normalfali kann die Adreßcodierung 
getrost vergessen werden. Gewöhnungs¬ 
bedürftig ist und bleibt allerdings, daß die 
vertrauten $Cxxx-Adressen hier mit „E“ 
beginnen. 

Nun zur Speicherverwaltung selbst: Ganz 
grob (!) läßt sich sagen, daß der CCP dem 
Command-Interpreter unter DOS 3.3 ent¬ 
spricht, BDOS dem File-Manager, BIOS 
der RWTS (und anderen i/O-Routinen). 
Die TPA ist der für den Anwender zur 
Verfügung stehende Speicherbereich. 
Wesentlich für den Assembler-Program¬ 
mierer ist nun, daß der CCP von Program¬ 
men überschrieben werden darf, sofern 
am Ende des Programms ein Warmstart 
(JP 0000h) ausgeführt wird. CP/M lädt 
dann den CCP von der Diskette nach. 
Bleibt jedoch der CCP intakt, und wird das 
eigene Programm über RET verlassen, 
braucht nichts nachgeladen zu werden. In 
diesem Fall stehen dem Benutzer durch¬ 
gehend etwa 49K zur Verfügung, im ande¬ 
ren Fall 2K meh/. (Vergleich: unter DOS 
3.3 nur ca. 37K in einem Stück.) Beim CP/ 
M 2.23 (60K) wird auch noch die Bank 1 
der RAM-Karte für das System benutzt, so 


12. I/O-Funktionen unter CP/M 

Das Betriebssystem besitzt 37 von „au¬ 
ßen" ansprechbare Einzelfunktionen für 
die I/O-Abwicklung. Diese Funktionen 
sind durch Nummern von 0-36 (00h-24h) 
gekennzeichnet. Hiervon wird in diesem 
Aufsatz nur ein Teil ausführlich bespro¬ 
chen, und zwar Console-Eingabe/Ausga- 
be einzelner Zeichen/Strings, sowie File- 
l/O vom sequentiellen Typ. Da die Proze¬ 
dur fast überall gleich ist, kann für alle 
anderen Funktionen auf das CP/M Refe¬ 
rence Manual verwiesen werden. Die prin¬ 
zipielle Vorgehensweise ist dabei folgen¬ 
de: In das C-Register wird die Funktions¬ 
nummer geladen und danach BDOS auf¬ 
gerufen (BDOS-Vektor steht bei 0005h). 
Bei manchen Funktionen muß vorher noch 
im DE-Register eine Adresse bereitge¬ 
stelltwerden (z.B. Puffer-Adresse). Das ist 
alles! Da bei der Ausführung der BDOS- 
Funktionen Register zerstört werden, muß 
der Anwender ggf. seine Register vor dem 
BDOS-Aufruf retten. 

12.1. Einfache I/O-Funktionen 
(Console, Drucker) 

Beispiel 1: Einlesen eines Zeichens von 
Tastatur. Durch 

LD C,1 ; 1 = Console Input 

CALL BDOS : BDOS = 0005h 

wird ein Zeichen im A-Register übergeben 
(Low-ASCII, Bit 7 = 0). Die BDOS-Routi- 
ne wartet dabei auf das Betätigen der Ta¬ 
statur und verzögert die weitere Pro¬ 
grammausführung. 

Beispiei 2: Einlesen einer Zeile von Tasta¬ 
tur. Hierzu ist 

LD (BUFFER),MAX ; MAX = max. 

Zeilenlänge 

LD C,10 : 10 = Console String 

Input 

LD DE,BUFFER ; String-Puffer 
CALLBDOS 

anzugeben. BDOS erwartet, daß die erste 
Position im Puffer die maximale vom Be¬ 
nutzer zugelassene Zeilenlänge enthält. 
Das garantiert die 1. Assembler-Zeile. DE 
enthält die BUFFER-Adresse. Nach Aus¬ 
führung des BDOS-Aufrufs legt die Input- 
Routine in der 2. Position in BUFFER die 
tatsächlich eingegebene Zeichenzahl ab, 
danach erst die eigentlichen Daten. BUF¬ 
FER muß also 2 Bytes länger sein als der 
erwartete String. Die Zeilenende-Zeichen 
CR/LF (Carriage Return/Line Feed) wer¬ 
den nicht in den BUFFER übergeben - 
ebensowenig wie die Edit-Zeichen (z.B. 
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Ctrl-H). Zeichen erscheinen stets in Low- 
ASCII. 

Beispiel 3: String-Ausgabe auf Bildschirm. 
Der auszugebende String muß durch ein 
„$“ abgeschlossen sein. Davor sind ggf. 
noch CR/LF zu setzen - wie im folgenden 
Fall: 

LD C,9 ; 9 = Display String 
LD DE,STRING 
CALL BDOS 

STRING: ASC ”Testzeile” 
DB0Ah,0Dh,’'$” 

Der auszugebende String darf natürlich 
kein „$“ als Datenzeichen enthalten. In 
einem solchen Fall muß der String zei¬ 
chenweise ausgegeben werden; hierzu 
dient das Makro DISPC In der Makro- 
Liste im Anhang. Hiermit könnte der Leser 
ein Makro definieren, das z. B. das gesetz¬ 
te Bit 7 als Ende-Zeichen betrachtet. Der 
String würde dann mit DC definiert. 

Die Makro-Liste enthält noch weitere ele¬ 
mentare I/O-Funktionen, z. B. für die 
Drucker-Ansteuerung. 

12.2. Sequentielles File-l/0 

Maßgebend ist hierfür der sogenannte 
FCB = File Control Block (in der Funktion 
vergleichbar mit der File-Manager-Para- 
meter-Liste unter DOS). Dieser Block hat 
eine Länge von 36 Bytes und ist nach dem 
in Abb. 11 wiedergegebenen Schema 
vorzubelegen. 

Ähnlich wie unter DOS, kann man mit ei¬ 
nem eigenen FCB arbeiten oder den Sy- 
stem-FCB benutzen (liegt bei Adresse 
005Ch-007Fh). Arbeitet man mit mehr als 
einem File simultan, so sollte man stets 
mehrere und damit selbst definierte FCBs 
vorsehen. Ein spezielles Makro für den 
Vereinbarungsteil (s. Makro-Liste) erleich¬ 
tert die Definition/Initialisierung des FCB. 
Die jeweilige FCB-Adresse ist stets im 
DE-Register bereitzustellen. 

Nun zum Problem des Daten-Puffers. Hier 
ist zunächst festzustellen, daß CP/M den 
Datentransfer mit einer festen Record- 
Länge von 128 Bytes abwickelt. Daten 


können somit nur 128-byte-weise gele¬ 
sen/geschrieben werden. Der System- 
Puffer liegt bei 0080h-00FFh. Entscheidet 
man sich für einen eigenen Daten-Puffer, 
so muß das dem System mitgeteilt wer¬ 
den. Hierfür existiert eine separate BDOS- 
Funktion, die wie folgt abgerufen wird: 

LD C,26 ; 26 = Set DMA 
Address 

LD DE,DATABUF 
CALL BDOS 

DATABUF: DS 80h 

Die neue Puffer-Adresse kann nur durch 
erneuten Aufruf der Funktion 26, durch 
Warmstart oder die BDOS-Funktion 0 
(DISK RESET) wieder verändert werden. 

12.2.1. File-Eröffnung 

Bei der Eröffnung eines Disk-Files muß 
man unterscheiden zwischen Neueröff¬ 
nung (MAKE FILE) und einer Wiedereröff¬ 
nung eines schon bestehenden Files 
(OPEN FILE). Jetzt Achtung: Bei einem 
MAKE FILE kontrolliert BDOS nicht (!), ob 
ein File gleichen Namens schon vorhan¬ 
den ist, sondern legt u.U. einen namens¬ 
gleichen File an (evtl. File vorher löschen). 
BDOS übergibt nach Ausführung der 
Eröffnungen einen Status-Code im A-Re- 
gister: 0-3 bedeutet „alles O.K.“, OFFh 
heißt Fehler (MAKE FILE: Disk Full, OPEN 
FILE: File not found). 

12.2.2. Record lesen/schreiben 

Für das Lesen und Schreiben sind die 
BDOS-Funktionen 20 und 21 zuständig. 
Ist nach Ausführung dieser Funktionen 
das A-Register <> 0, so ist beim Schrei¬ 
ben „Disk Full“ aufgetreten, beim Lesen 
das File-Ende erreicht worden. Die Makros 
READRC und WRITRC in der Makro-Liste 
berücksichtigen diese Fälle. Schreibt man 
Daten in einen bestehenden File und 
überschreitet das Dateiende, so wird 
zwanglos die Datei vom System erweitert. 
Eine separate APPEND-Funktion ist über¬ 
flüssig* Bei ASCII-Dateien ist es üb¬ 


lich, das Dateiende (sofern innerhalb eines 
Records) durch CTRL-Z (lAh) abzuschlie¬ 
ßen. So verfährt der ED.COM und auch 
WORDSTAR. 

12.2.3. Datei schließen 

Am Ende der Verarbeitung ist die CLOSE- 
Funktion auszuführen (BDOS-Funktion 
Nr.16) 

Das Beispiel in Abb. 12 simuliert das 
TYPE-Kommando von CP/M und zeigt 
den Umgang mit den verschiedenen 
BDOS-Funktionen. Es wird angenommen, 
daß der File-Name bereits im unten defi¬ 
nierten FCB eingetragen wurde oder von 
vorneherein feststeht. Die Makro-Namen 
beziehen sich auf die Makro-Liste. 

Versuchen Sie doch einmal, auf ähnliche 
Art und Weise ein simples File-Copy-Pro- 
gramm zu erstellen. (Zuerst mit fest vorge¬ 
gebenen File-Namen. Programmieren Sie 
dann im nächsten Schritt ein kleines Menü 
für die Eingabe der File-Namen und der 
zugehörigen Laufwerke. Vielleicht eine 
Pause für Diskettenwechsel?) 

Noch eine wichtige Bemerkung zum De¬ 
buggen solcher Programme, die File-l/0 
beinhalten: Die Debugger setzen beim 
Start den Stackpointer auf 0100H - also 
auf das Ende des System-I/O-Puffers. 
Wird dieser benutzt, muß in jedem Fall ein 
eigener Stack-Bereich verwendet werden. 


0 

1 - 8 

9-11 

12 - 31 

32 

33 - 35 

Drive - Nr. 

File-Name 

Exfens. 

?? 

00 

?? 

0-15 



i (nicht init,) 




Wildcards erlaubt! nur RANDOM-I/O 


0; Qkt Laufwerk (nur MAKE/OPEN) 

1-16 ; Laufwerk A:-P: 

Abb. 11 
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SETOUF aUPTEF 

[ elE^ner Puffer für Fll«-l/0 


OFESi 

FCS.HOTFHD 

; Pl)ie er5ffnen J vorbendontl' 

LOOP; 

READKC FÜR>EOF 

R(iüorJ löSÜ!l 


CALL 

DISPLAY 

V Reqord -> SildUdhVrs 


JR 

UJOF 

; pAqtoter Heoord 

EOF: 

CL05E 

FCB 

: End-of-Pil»: Filt schllel^n 


JP 

0 

' Prej^rA^önde 

NÖtFMD: 

bisps 

JP 

meSs 

0 

: Ptlä n;tqhj; vorhenden/ieldqn 

DISPLAY! 

LD 

HL.BDFFO 


Li 

LP 

A . ( HL ) 

; Ze i G&uit aüe Fuf fer 


CF 

m 

: gtri-Efr 


JR 

Z.BOF 

; Ead-of^File erraioht 


PUSH 

HL 

; KL vor BDOS retten 


LD 

DISPC 

E,A 

; udilnden riif DISPC 


Abb. 12 



POP 

HL 



INC 

HL : 

feiger; +• 1 


PUSH 

HL ; 

HL eichern 


AND 

LD 

A : 

BC,BUFFSR4«0.S^h 

Ideehe Carry 


sac 

j4.BC j 

HL - PüffdrendQ IT 


FOF 

HL ; 

KL restavirJer^n 


JR 

HZ.L : 

,a&pttstofi ZelGhbn. falle o 0 


w 


Pufferende erreicht 

pcai 

FCB 

.'TILEMAHB*'. 

i Fil 0 -Cdntrpl-Blcck 
^ für"A: FSLiHAHE,m'‘ 

EUFFES: 

DS 


I/ü-Puffär 

UEBS: 

CRLF 

' 

CB LF 


DB 

"File nicht vorhaodin'' 


DELIH 

mm 


CB LF % 


Z80-Makro-Liste (unter CP/M 2.2) 


PRINTS 

MACRO 

BUFFER 

; String bis $ -> Drucker/LST: 

; BUFFER: zu druckender String 

; IX-Register wird 

benutzt 1 


LOCAL 

LOOP.EXIT 


LD 

IX,BUFFER 

LOOP: 

LD 

E,(IX) 


INC 

IX 


LD 

A,"$" 


CP 

E 


JR 

Z.EXIT 


PRINTC 



JR 

LOOP 

EXIT: 




ENDM 


FCB 

MACRO 

DRV,FILE,EXT 

; File- 

Control-Block 

; Parameter in . 

" angeben 

; FILE: 

File-Name 


: EXT: 

File-Erweiterung 

; DRV: 

Drive (leer = akt. Drive) 


LOCAL 

FL,FLE.X,XE 


IFB 

<DRV> 


DB 

0 


ELSE 



DB 

DRV-64 


ENDIF 


FL: 




DB 

II IP 

FLE: 




ORG 

FL 


DB 

FILE 


ORG 

FLE 

X: 




DB 

>t +1 

XE; 




ORG 

X 


DB 

EXT 


ORG 

XE 


DB 

0.0,0.0.0.0,0.0.0 


DB 

0.0,0.0.0.0.0.0j 0. 0 


DB 

0.0.0.0 


ENDM 


SETBUF 

MACRO 

BUFFER 

; setzt 

Buffer für 

File-I/0 ' 

; BUFFER: Daten-Puffer für Record 


(128 Bytes) 


LD 

C.26 


LD 

DE,BUFFER 


CALL 

BDOS 


ENDM 



BDOS EQU 

0005H 

READC MACRO 


; Zeichen/Tastatur 

-> A-Register 

LD 

C,1 

CALL 

BDOS ' 

ENDM 


READS MACRO 

BUFFER.MAXZ 

; Zeile/Tastatur -> BUFFER 

; BUFFER + 0: max. 

Zeichenzahl MAXZ 

: BUFFER + 1: tatsächl. Zeichenzahl 

: BUFFER + 2: Eingabestring ohne CR/LF 

LD 

A.MAXZ 

LD 

(BUFFER),A 

LD 

C,10 

LD 

DE,BUFFER 

CALL 

BDOS 

ENDM 


DISPC MACRO 


; Zeichen/E-Register -> Bildschirm 

LD 

0,2 

CALL 

BDOS 

ENDM 


DISPS MACRO 

BUFFER 

; String begrenzt durch $ -> Bildschirm 

; BUFFER: auszugebende Zeichehkette 

LD 

0,9 

LD 

DE,BUFFER 

CALL 

BDOS 

ENDM 


CRLF MACRO 


; setzt Charaoters 

CR/LF ein 

DB 

0DH,0AH ; CR/LF 

ENDM 


DELIM MACRO 


; schließt String durch CR/LF/$ ab 

xCRLF 

: CR/LF 

DB 


ENDM 


PRINTC MACRO 


; Zeichen/E-Register -> Drucker/LST: 

LD 

C,5 

CALL 

BDOS 

ENDM 





MAKE MACRO 

FCBADR,ERROR 

; File neu eröffnen , ERROR optional 

; FCBADR: Adresse 

des FCB 

XOR 

A 

LD 

(FCBADR+32),A 

LD 

C.22 

LD 

DE,FCBADR 

CALL 

BDOS 

IFNB 

<ERR0R> 

CP 

4 

JP 

NC,ERROR : Disk Full 

; ERROR: Ausgang bei 'Disk Full' 

ENDIF 

ENDM 

OPEN MACRO 

FCBADR.NOTFND 

; Vorhand. File eröffnen, NOTFND opti 

; FCBADR: Adresse 

des FCB 1 

XOR 

A 

LD 

(FCBADR+32).A 

LD 

0,15 

LD 

DE.FCBADR 

CALL 

BDOS 

IFNB 

<N0TFND> 

OP 

4 

JP 

NC,NOTFND 

; NOTFND; Ausgang 
ENDIF 
ENDM 

bei 'File not found' 

READRC MACRO 

FCBADR,EOF 

: Read sequ. Record, EOF optional 

: FCBADR: Adresse 

des FCB 

LD 

C,20 

LD 

DE,FCBADR 

CALL 

BDOS 

IFNB 

<E0F> 

CP 

0 1 

JP 

NZ.EOF 

: EOF: Ausgang bei 'End cf File' 

ENDIF 

ENDM 

WRITRC MACRO 

FCBADR,ERROR 

; Write sequ. Record, ERROR optional 

; FCBADR: Adresse 

des FCB 

LD 

C.21 

LD 

DE.FCBADR 

CALL 

BDOS 
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IFNB 

<ERR0R> 

CP 

0 

JP 

NZ,ERROR 

; ERROR; Ausgang bei 'Disk Full' 

ENDIF 

ENDM 

CLOSE MACRO 

FCBADR,NOTFND 

; File schließen 

, NOTFND optional 

; FCBADR: Adresse 

des FCB 

LD 

C,16 

LD 

DE,FCBADR 

CALL 

BDOS 

IFNB 

<N0TFND> 

CP 

4 

JP 

NC,NOTFND 

; NOTFND: Ausgang bei 'File not found' 

ENDIF 

ENDM 

DELETE MACRO 

FCBADR,NOTFND 

; File löschen, NOTFND optional 

; FCBADR: Adresse 

des FCB 

LD 

C,19 

LD 

DE,FCBADR 

CALL 

BDOS 

IFNB 

<N0TFND> 

CP 

4 

JP 

NC,NOTFND 

; NOTFND: Ausgang bei 'File not found' 

ENDIF 

ENDM 

SAVX MACRO 

; Register retten 

-> Cache 

EX 

EXX 

ENDM 

AF,AF' 

LADX MACRO 


; Register laden 
SAVX 
ENDM 

<- Cache 

SAVR MACRO 

X 

; Register auf Stack retten 

: X: falls nicht 

leer, auch 

; Indexregister retten 


PUSH HL 

PUSH DE 

PUSH BC 

PUSH AF 

IFNB <X> 

PUSH lY 

PUSH IX 

ENDIF 
ENDM 

LADR MACRO X 

; Register von Stack laden 
; X: falls nicht leer, auch 
; Indexregister laden 


IFNB 

<X> 

POP 

IX 

POP 

lY 

ENDIF 


POP 

AF 

POP 

BC 

POP 

DE 

POP 

HL 

ENDM 



bedingte Sprünge bei Größenvergleich 
8-Bit-Zahlen {ohne Vorzeichen) 

ADR: Sprungadresse bei erfüllter 
Bedingung 


JLT 

MACRO 

ADR ; 

JP, 

IF 

< 


JP 

C, ADR 





ENDM 





JLE 

MACRO 

ADR ; 

JP, 

IF 

<= 


JP 

C,ADR 





JP 

ENDM 

Z,ADR 




JE 

MACRO 

ADR ; 

JP, 

IF 

= 


JP 

ENDM 

Z, ADR 




JNE 

MACRO 

ADR ; 

JP, 

IF 

<> 


JP 

NZ,ADR 





ENDM 





JGE 

MACRO 

ADR ; 

JP, 

IF 

>= 


JP 

NC,ADR 





ENDM 





JGT 

MACRO 

ADR ; 

JP, 

IF 

> 


LOCAL 

EXIT 





JR 

C,EXIT 





JR 

Z,EXIT 





JP 

ADR 





BXIT: 




ENDM 


UOVE 

MACRO 

DEST,SOURCE ; Byte 


LD 

A,(SOURCE) 


LD 

(DEST),A 


ENDM 


uovEa 

MACRO 

DEST,SOURCE ; Wort 


LD 

HL,(SOURCE) 


LD 

(DEST),HL 


ENDM 


MOVSL 

MACRO 

TAB2,TAB1,N 

; N Bytes 

von TABl -> TAB2 (Inkrement) 


LD 

BC,N 


LD- 

HL,TABl 


LD 

DE,TAB2 


LDIR 



ENDM 


FILL 

MACRO 

TAB.N.VALUE 

; N Bytes 

ab TAB 

mit 'VALUE' füllen 


LOCAL 

LOOP 


LD 

HL,TAB 


LD 

B,N 


LD 

A.VALUE 

LOOP: 




LD 

(HL),A 


INC 

HL 


DJNZ 

LOOP 


ENDM 


SEARCtr 

MACRO 

TAB,N,VALUE,FOUND,NOTfUO 

: N Bytes 

ab TAB 

nach 'VALUE' durchsuchen 

: falls vorh, -> 

FOUND, sonst -> NOTFND 

r FOUND/NOTFND optional 

: HL zeigt ggf, auf gefundenes Byte + 1 


LD 

HL,TAB 


LD 

BC,N 


LD 

A,VALUE 


CPIR 



IFNB 

<F0UND> 


JP 

PE,FOUND 


ENDIF 



IFNB 

<N0TFND> 


JP 

PO,NOTFND 


ENDIF 



ENDM 



MMU 2.0 
Memory 
Managements 
Utilities 

für die Apple Ile 64K-Karte 
DOS 3.3 (und ProDOS) 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 

Bei der Version 2.0 der MMU’s sind 
die Utilities teilweise so umgeschrie¬ 
ben worden, daß sie sowohl unter 
DOS 3.3 als auch unter ProDOS lauf¬ 
fähig sind. Da dies nicht immer mög¬ 
lich war, sind zusätzlich zu den reinen 
DOS-Hilfsprogrammen, speziell den 
RAM-Disk-Drivern, einige reine Pro- 


DOS-Utilities aufgenommen worden. 
Insgesamt enthält die neue „MMU 
2.0“-Diskette über 25 Programme, 
die neue Einsatzmöglichkeiten für die 
Extended 80 Column Card (erweiter¬ 
te 80-Z-Karte = 64K-Karte für den 
Apple He) erschließen. Ein Teil der 
Programme laufen auch auf dem 
Apple II Plus, doch ist „MMU 2.0“ 
primär für 64K-Karte-Besitzer ge¬ 
dacht. 

Im einzelnen umfaßt „MMU 2.0“ 

- Drei RAM-Disk-Driver für DOS 
3.3: „INIT 62“ benutzt nur die 
64K-Karte als RAM-Disk, „INIT 
78“ benutzt zusätzlich die Mother- 
board-LC als RAM-Karte und 
„DOSMOVER. INIT 62“ gilt für den 
Fall, daß sich das DOS selbst in der 
Motherboard-LC befindet. 

- Eine sehr nützliche Pseudo-Co- 
processor-Utility, die das Hin- und 
Herschalten zwischen zwei Pro¬ 


gramm-Modulen ermöglicht, von 
denen sich das eine Modul auf der 
64K-Karte befindet. 

- Zwei schnelle Kopierprogramme 
(für DOS 3.3 und ProDOS). 

- Mehrere Move-Programme zum 
Verschieben von Daten auf die 
64K-Karte sowie auf die Language 
Card und umgekehrt. 

- Mehrere Hilfsprogramme zum Un¬ 
tersuchen und Löschen bestimm¬ 
ter Speicherbereiche der 64K-Kar- 
te und der LC, zur Ermittlung des 
Softswitch-Status usw. 

- Zwei Simulator-Programme zum 
Simulieren von Apple II und Apple 
II Plus auf dem Apple Ile. 

Gerätevoraussetzung: Apple Ile mit 

64K-Karte oder llc 

Hüthig Software Service, 

Postfach 10 28 69, 

D-6900 Heidelberg 


Peeker11/85 


45 















Z80-Operationstabelle 


Bei der Taktfrequenz von ca. 2 MHz dau¬ 
ert ein Speicherzyklus ca. 500 nsec 
(= 0.5 X 10 ^ sec). Bei den Speicherzy¬ 
klen sind z.T. „von-bis“-Angaben vorhan¬ 
den, hier ist die Ausführungszeit von Regi¬ 
sterinhalten abhängig. Sofern dem Befehl 
ein Adreß- oder 16-Bit-Immediatewert 
folgt, ist dieser im Low/High-Format anzu¬ 
hängen. Bei den Flags bedeuten: X = Bit 
kann verändert werden; - = Bit wird nicht 
geändert: 0 = Bit wird zu 0 gesetzt; 


1 = Bit wird zu 1 gesetzt; ? = Bit ist unbe¬ 
stimmt. 

Unter der Spaltenüberschrift 8080-M sind 
die 8080-Mnemonics eingetragen - so¬ 
fern entsprechende Befehle beim Intel- 
8080 vorhanden sind. Die Mnemonics sol¬ 
len allerdings nur als grobe Stütze dienen. 
Die Schreibweise der 8080-Befehle 
weicht noch in anderen Details von der 
Z80-Normierung ab. 


In den Tabellen fehlen die Z80-Befehle, 
die sich auf die Port- und Interrupt-Pro¬ 
grammierung beziehen. Grund: Die Z80- 
Port-Leitungen sind bei der Softcard nicht 
herausgeführt. In der Standard-Betriebs¬ 
art sind auch die Interrupt-Befehle nicht 
ausnutzbar. Beim Apple II unter CP/M 
kann man diese beiden Befehlsgruppen 
zunächst vergessen. 


Befehle mit 16-Bit-Struktur: 


Operation 

Operand 

Funktion 

AF 

BC 

Op/Cy 

DE 

Op/Cy 

HL 

Op/Cy 

SP 

Op/Cy 

IX 

Op/Cy 

lY 

Op/Cy 

(Adr) 

Op/Cy 

Imm/16 

Op/Cy 

Impliz. 

Op/Cy 

Flags 

SZ-H-PNC 

8080-M 

Arithmetik 

ADC HL, 

HL-l-Operand-kCarry 


ED4A/15 

ED5A/15 

ED6A/15 

ED7A/15 






XX7X7X0X 


ADD HL, 

HL+Operand 


09/11 

19/11 

29/11 

39/11 






—7X7-0X 

DAD 

ADD IX, 

IX+Operand 


DD09/15 

DD19/15 


DD39/15 

DD29/15 





—7X7-0X 


ADD lY. 

lY-l- Operand 


FD09/15 

FD19/15 


FD39/15 


FD29/15 




—7X7-0X 


SBC HL, ■ 

HL- Operand-Carry 


ED42/15 

ED52/15 

ED62/15 

ED72/15 






XX7X7X1X 


DEC 

Dekrementieren 


OB/6 

1B/6 

2B/6 

3B/6 

DD2B/10 

FD2B/10 




9 9 

DCX 

INC 

Inkrementieren 


03/6 

13/6 

23/6 

33/6 

DD23/10 

FD23/10 




-9-9- 

INX 

Transfer-Befehle 

EX DE, 

DE ^ Operand 




EB/4 







-?-?- 

XCHG 

EX (SP), 

(SP) <-> Operand 




E3/19 


DDE3/23 

FDE3/23 




-9_?- 

XTHL 

EX AF, AF' 

AF^AF 










08/4 

_?-? _ 


EXX 

Austausch/Cache 










D9/4 

-?-?- 


LD BC, 

BC Operand 








ED4B/20 

01/10 


-?-?- 

LXI 

LD DE, 

DE <- Operand 








ED5B/20 

11/10 


— 7-7- 

LXI 

LD HL, 

HL Operand 








ED6B/20 

21/10 


— ?_?- 

LHLD/LXI 

” 









2A^V16 





LD SP, 

SP <- Operand 




F9/6 


DDF9/10 

FDF9/10 

ED7B/20 

31/10 


- ?_9 - 

LXI/SPHL 

LD (Adr), 

Adr ^ Operand 


ED43/20 

ED53/20 

ED63/20 

ED73/20 

DD22/20 

FD22/20 




- —?-?- 

SHLD , 

” 





22'V16 









LD IX, 

IX Operand 








DD2A/20 

DD21/14 


— 7-7- 


LD lY, 

lY Operand 








FD2A/20 

FD21/14 


— ?-?- 


POP 

Stack Operand 

Fl/IO 

CI/10 

Dl/10 

El/10 


DDE1/14 

FDE1/14 




— ?_?- 

POP 

PUSH 

Operand ->Stack 

F5/11 

C5/11 

D5/11 

E5/11 


DDE5/15 

FDE5/15 




— ?_?- 

PUSH 


2. Operationscode für den gleichen Befehl 


Bedingte/Unbedingte Programmverzweigung: 


Operation 

Bedingung ^ 

Funktion 

ohne Bed. 
Op/Cy 

NZ 

Op/Cy 

Z 

Op/Cy 

NC 

Op/Cy 

C 

Op/Cy 

PO 

Op/Cy 

PE 

Op/Cy 

P 

Op/Cy 

M 

Op/Cy 

Flags 

SZ-H-PNC 

8080-M 

Jump-Call-Return 


CALL 

Unterprogrammsprung^i 

CD/17 

C4/17-10 

CC/17-10 

D4/17-10 

DC/17-10 

E4/17-10 

EC/17-10 

F4/17-10 

FC/17-10 

-?_?_ 

CALL/Cbed®> 

DJNZ 

DekremVSprung NZ^^ 


10/13-8 








-?-?_ 


JP 

Sprungbefehl 

C3/10 

C2/10 

CA/10 

D2/10 

DA/10 

E2/10 

EA/10 

F2/10 

FA/10 

-?_?— 

JMP/Jbed='> 

JP (HL) 

indirekt. Sprung 

E9/4 









-?-?— 

PCHL 

JP (IX) 

indirekt. Sprung 

DDE9/8 









I 

I 

I 

I 

'•O 

I 

I 


JP (lY) 

indirekt. Sprung 

FDE9/8 









-7-7— 


JR 

Sprung/kurz^^ 

18/12 

20/12-7 

28/12-7 

30/12-7 

38/12-7 





-9-9- 


RET 

Rückspr. aus UP^* 

C9/10 

CO/11-5 

C8/11-5 

DO/11-5 

D8/11-5 

EO/11-5 

E8/11-5 

FO/11-5 

F8/11-5 

-^7-?— 

RET/Rbed®> 


„bed" ist einer der Schlüssel NZ, Z, NC, C,... 

Bei den Cycles ist z.B. in 17-10 die erste Zahl bei erfüllter Bedingung, die zweite Zahl bei nicht erfüllter Bedingung gültig. 
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Befehle mit 8-Bit-Struktur: 

Um die Tabelle nicht zu breit werden zu 
lassen, sind Befehle mit mehr als einem 
Byte Operationscode nach einem beson¬ 
deren Schema aufgeführt. Beispiel: 

1.) CPD 

a) Spaltenüberschrift ED 

b) Tabelleneintrag A9/16 

Insgesamt: ED A9. Ausführungszeit des 
Befehls: 16 Speicherzyklen 


2.) ADC A, (IX+d) 

a) Spaltenüberschrift DDxx-l- 

b) Tabelleneintrag 8E/19 

Es steht XX für den 1 . Wert unter b), an die 
Stelle von + ist der Offset d einzutragen. 
Für bspw. d=7 erhält man insgesamt: DD 
8E 07. Ausführungszeit beträgt 19 Spei¬ 
cherzyklen. 

Die Spaltenüberschrift gilt bis zur näch¬ 
sten Überschrift oder bis zur durchgezo¬ 
genen Linie. 


Operation 

Operand 

Funktion 

Impliz. 

Op/Cy 

A 

Op/Cy 

B 

Op/Cy 

C 

Op/Cy 

D 

Op/Cy 

E 

Op/Cy 

H 

Op/Cy 

L 

Op/Cy 

(HL) 

Qn/Qy 

(BC) 

Op/Cy 

(DE) 

Op/Cy 

(IX+d) 

Op/Cy 

lY+d) 

Qn/Gy 

Imm/8 

Op/Cy 

{Adr) 

Op/Cy 

Flags 

SZ-H-PNC 

S080-M 

Arithmetik 













DDxx+ 

FDxx+ 





ADC A, 

A-i-Operand+Carry 


0F/4 

88/4 

89/4 

8A/4 

8B/4 

8C/4 

8D/4 

8E/7 


8E/19 

8E/19 

CE/7 


XX?X?X0X 

ADC/ACI 

ADDA, 

A+Operand 


87/4 

80/4 

81/4 

82/4 

83/4 

84/4 

85/4 

86/7 


86/19 

86/19 

C6/7 


XX7X7X0X 

ADD/ADI 

SBC A, 

A-Operand-Carry 


9F/4 

98/4 

99/4 

9A/4 

9B/4 

9C/4 

9D/4 

9E/7 


9E/19 

9E/19 

DE/7 


XX7X7X1X 

SBB/SBI 

SUB 

A-Operand 


97/4 

90/4 

91/4 

92/4 

93/4 

94/4 

95/4 

96/7 


96/19 

96/19 

D6/7 


XX7X7X1X 

SUB/SUI 

INC 

Inkrement 


3C/4 

04/4 

OC/4 

14/4 

IC/4 

24/4 

2C/4 

34/11 


34/23 

34/23 



XX7X7X0- 

INR 

DEC 

Dekrement 


3D/4 

05/4 

OD/4 

15/4 

ID/4 

25/4 

2D/4 

35/11 


35/23 

35/23 



XX7X7X1- 

DCR 

DAA 

BCD-Anpass./A 

27/4 














XX7X7X-X 

DAA 

NEG 

A-** - A 

Äm 














XX7X7X 1 X 


Logische/Boolesche Operationen 

















DDxx+ 

FDxx+ 





AND 

A.UND.Operand 


A7/4 

AO/4 

AI/4 

A2/4 

A3/4 

A4/4 

A5/4 

A6/7 


A6/19 

A6/19 

E6/7 


XX717X00 

ANA/ANI 

XOR 

A.XOR.Operand 


AF/4 

A8/4 

A9/4 

AA/4 

AB/4 

AC/4 

AD/4 

AE/7 


AE/19 

AE/19 

EE/7 


XX707X00 

XRA/XRI 

OR 

A.ODER.Operand 


B7/4 

BO/4 

B1/4 

B2/4 

B3/4 

B4/4 

B5/4 

B6/7 


B6/19 

B6/19 

F6/7 


XX707X00 

ORA/ORI 

CPL 

A-Reg, kompl. 

2F/4 














-717-1- 

CMA 

CP 

Vergl, A/Operand 

pn 

BF/4 

B8/4 

B9/4 

BA/4 

BB/4 

BC/4 

BD/4 

BE/7 


BE/19 

BE/19 

FE/7 


XX7X7X1X 

CMP/CPI 

CPD 

Vergi./Dekrement 

cU 

A9/16 














XX7X7X1- 


CPDR 

Biockvergleich - 

B9/16-21 














XX7X7X1- 


CPI 

Vergl./Inkrement 

AI/16 














XX7X7X1- 


CPIR 

Blockvergleich + 

Bl/16-21 














XX7X7X1- 


Transfer-Befehle 














DDxx+ 

FDxx+ 





LDA, 

A <r- Operand 


7F/4 

78/4 

79/4 

7A/4 

7B/4 

7C/4 

7D/4 

7E/7 

OA/7 

1A/7 

7E/19 

7E/19 

3E/7 

3A/13 

—- 

MOV/MVI 

LD B, 

B <- Operand 


47/4 

40/4 

41/4 

42/4 

43/4 

44/4 

45/4 

46/7 



46/19 

46/19 

06/7 


,— ?_? - 

MOV/MVI 

LD C, 

C -e- Operand 


4F/4 

48/4 

49/4 

4A/4 

4B/4 

4C/4 

4D/4 

4E/7 



4E/19 

4E/19 

OE/7 


^ 

MOV/MVI 

LD D, 

D <- Operand 


57/4 

50/4 

51/4 

52/4 

53/4 

54/4 

55/4 

56/7 



56/19 

56/19 

16/7 


— ?-? - 

MOV/MVI 

LD E, 

E ^ Operand 


5F/4 

58/4 

59/4 

5A/4 

5B/4 

5C/4 

5D/4 

5E/7 



5E/19 

5E/19 

IE/7 


— ?-?-- 

MOV/MVI 

LD H, 

H Operand 


67/4 

60/4 

61/4 

62/4 

63/4 

64/4 

65/4 

66/7 



66/19 

66/19 

26/7 


^ 

MOV/MVI 

LD L, 

L ■«- Operand 


6F/4 

68/4 

69/4 

6A/4 

6B/4 

6C/4 

6D/4 

6E/7 



6E/19 

6E/19 

2E/7 


— ?-? — 

MOV/MVI 

LD (HL), 

(HL) <-Operand 


77/7 

70/7 

71/7 

72/7 

73/7 

74/7 

75/7 






36/10 


-7-7- 

MOV/MVI 

LD (BC). 

(BC) -e- Operand 


02/7 














— ?_?- 

STAX 

LD (DE). 

(DE) ■«- Operand 


12/7 














— ?_?- 

STAX 

LD (Adr). 

Adr <- Operand 


32/13 














— ?_?- 

STA 




DDxx+ 

DDxx+ 

DDxx+ 

DDxx+ 

DDxx+ 

DDxx + 

DDxx+ 






DDxx+ 




LD (IX+d)p 

(IX+d) ■«- Operand 


77/19 

70/19 

71/19 

72/19 

73/19 

74/19 

75/19 






36/19 


— - 





FDxx+ 

FDxx+ 

FDxx+ 

FDxx+ 

FDxx+ 

FDxx+ 

FDxx+ 






FDxx+ 




LD (lY+d), 

(lY+d) -e- Operand 

ED 

77/19 

70/19 

71/19 

72/19 

73/19 

74/19 

75/19 






36/19 


_ 9-7 _ 


LDD 

Laden/Dekrement 

Ä8/16 















-707X0- 


LDDR 

Blockversch.- 

B8/16-21 















— 70700- 


LDI 

Laden/Inkrement 

AO/16 















— 707X0- 


LDIR 

Blockversch.+ 

BO/16-21 















— 70700- 
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Befehle mit 8-Bit-Struktur (Fortsetzung) 


Operation 

Operand 

Funktion 

Impliz. 

Op/Cy 

A 

Op/Cy 

B 

Op/Cy 

C 

Op/Cy 

D 

Op/Cy 

E 

Op/Cy 

H 

Op/Cy 

L 

Op/Cy 

(HL) 

Op/Cy 

(BC) 

Op/Cy 

(DE) 

Op/Cy 

(IX+d) 

Op/Cy 

lY+d) 

Op/Cy 

Imm/8 l(Adr) 
Op/Cy iop/(iy 

Flags 

S2-H-PNC 

8080'M 

\^erschlebe-Befehle 




CB 

CB 

CB 

CB 

CB 

CB 

CB 

CB 


DDCß+xx 

FDCß+)ü< 




RL 

Rot. ■«- Op,9 


17/8 

10/8 

11/8 

12/8 

13/8 

14/8 

15/8 

16/15 


16/23 

16/23 


XX?0?X0X 


RLA 

Rot. A,9 

17/4 













—?0?-0X 

RAL 

RLC 

Rot. <— Op,8 


07/8 

00/8 

01/8 

02/8 

03/8 

04/8 

05/8 

06/15 


06/23 

06/23 


XX707X0X 


RLCA 

Rot. •«- A,8 

07/4 













--707-0X 

RLC 

RR 

Rot. Op,9 


1F/8 

18/8 

19/8 

1A/8 

1B/8 

IC/8 

ID/8 

IE/15 


IE/23 

IE/23 


XX7O7X0X 


RRA 

Rot. -> A,9 

1F/4 













—707-0X 

RAR 

RRC 

Rot. -> Op,8 


OF/8 

08/8 

09/8 

OA/8 

OB/8 

OC/8 

OD/8 

OE/15 


oe23 

OE/23 


XX707X0X 


RRCA 

Rot. —^ A,8 

OF/4 













—707-0X 

RRC 

SU 

Shift <- Operand 


27/8 

20/8 

21/8 

22/8 

23/8 

24/8 

25/8 

26/15 


26/23 

26/23 


XX707X0X 


SRL 

Shift Operand 


3F/8 

38/8 

39/8 

3A/8 

3B/8 

3C/8 

3D/8 

3E/15 


3E/23 

3E/23 


XX707X0X 


SRA 

Shift arithm. 


2F/8 

28/8 

29/8 

2A/8 

2B/8 

2C/8 

2D/8 

2E/15 


2E/23 

2E/23 


XX707X0X 


RLD 

Rot. 4- Nibble 

ED 

6F/18 













XX707X0- 


RRD 

Rot. -> Nibble 

67/18 













XX707X0- 


Blt-Manipi 

jlation 





CB 

CB 

CB 

CB 

CB 

CB 

CB 

CB 


DDCB+xx 

FOCB+iu 




BITO, 

Test Bit 0 


47/8 

40/8 ' 

41/8 

42/8 

43/8 

44/8 

45/8 

46/12 


46/20 

46/20 


7X71770- 


BIT1. 

Test Bit 1 


4F/8 

48/8 

49/8 

4A/8 

4B/8 

4C/8 

4D/8 

4E/12 


4E/20 

4E/20 


7X71770- 


BIT 2, 

Test Bit 2 


57/8 

50/8 

51/8 

52/8 

53/8 

54/8 

55/8 

56/12 


56/20 

56/20 


7X71770- 


BITS, 

Test Bit 3 


5F/8 

58/8 

59/8 

5A/8 

5B/8 

5C/8 

5D/8 

5E/12 


5E/20 

5E/20 


7X71770- 


BIT 4, 

Test Bit 4 


67/8 

60/8 

61/8 

62/8 

63/8 

64/8 

65/8 

66/12 


66/20 

66/20 


7X71770- 


BITS, 

Test Bit S 


6F/8 

68/8 

69/8 

6A/8 

6B/8 

6C/8 

6D/8 

6E/12 


6E/20 

6E/20 


7X71770- 


BIT 6, 

Test Bit 6 


77/8 

70/8 

71/8 

72/8 

73/8 

74/8 

75/8 

70^12 


76/20 

76/20 


7X71770- 


BIT 7, 

Test Bit 7 


7F/8 

78/8 

79/8 

7A/8 

7B/8 

7C/8 

7D/8 

7E/12 


7E/20 

7E/20 


7X71770- 


SETO, 

Setze Bit 0 


C7/8 

CO/8 

CI/8 

C2/8 

C3/8 

C4/8 

C5/8 

C6/15 


C6/23 

C6/23 


- 9-9 - 


SETI, 

Setze Bit 1 


CF/8 

C8/8 

C9/8 

CA/8 

CB/8 

CC/8 

CD/8 

CE/15 


CE/23 

CE/23 


— ?-?- 


SET 2, 

Setze Bit 2 


D7/8 

DO/8 

Dl/8 

D2/8 

D3/8 

D4/8 

D5/8 

D6/15 


D6/23 

D6/23 


— ?_?- 


SET 3, 

Setze Bit 3 


DF/8 

D8/8 

D9/8 

DA/8 

DB/8 

DC/8 

DD/8 

DE/15 


DE/23 

DE/23 


— ?-?- 


SET 4, 

Setze Bit 4 


E7/8 

EO/8 

El/8 

E2/8 

E3/8 

E4/8 

E5/8 

E6/15 


E6/23 

E6/23 


— ?_?- 


SET 5, 

Setze Bit 5 


EF/8 

E8/8 

E9/8 

EA/8 

EB/8 

EC/8 

ED/8 

EE/15 


EE/23 

EE/23 


— ?-?- 


SET 6, 

Setze Bit 6 


F7/8 

FO/8 

Fl/8 

F2/8 

F3/8 

F4/8 

F5/8 

F6/15 


F6/23 

F6/23 


— 7-7 - 


SET 7, 

Setze Bit 7 


FF/8 

F8/8 

F9/8 

FA/8 

FB/8 

FC/8 

FD/8 

FE/15 


FE/23 

FE/23 


— ?_?_ 


RES 0, 

Reset Bit 0 


87/8 

80/8 

81/8 

82/8 

83/8 

84/8 

85/8 

86/15 


86/23 

86/23 


— ?-?- 


RES1, 

Reset Bit 1 


8F/8 

88/8 

89/8 

8A/8 

8B/8 

8C/8 

8D/8 

8E/15 


8E/23 

8E/23 


- 9-9 - 


RES 2, 

Reset Bit 2 


97/8 

90/8 

91/8 

92/8 

93/8 

94/8 

95/8 

96/15 


96/23 

96/23 


- 9-9 - 


RES 3. 

Reset Bit 3 


9F/8 

98/8 

99/8 

9A/8 

9B/8 

9C/8 

9D/8 

9E/15 


9E/23 

9E/23 


-?-?- 


RES 4, 

Reset Bit 4 


A7/8 

AO/8 

AI/8 

A2/8 

A3/8 

A4/8 

A5/8 

A6/15 


A6/23 

A6/23 


_?_?_ 


RESS, 

Reset Bit 5 


AF/8 

A8/8 

A9/8 

AA/8 

AB/8 

AC/8 

AD/8 

AE/15 


AE/23 

AE/23 


_?_?_ 


RES 6, 

Reset Bit 6 


B7/8 

BO/8 

Bl/8 

B2/8 

B3/8 

B4/8 

B5/8 

B6/15 


B6/23 

B6/23 


_ ?_9 _ 


RES 7. 

Reset Bit 7 


BF/8 

B8/8 

B9/8 

BA/8 

BB/8 

BC/8 

BD/8 

BE/15 


BE/23 

BE/23 


-??- 


Weitere Befehle (ohne Interrupt- und Port-Anweisungen) 

CCF 

Kompl, Carry 

3F/4 












— 7X7-0X 

CMC 

SCF 

Carry: = 1 

37/4 












— 707-01 

STC 

NOP 

Nulloperation 

00/4 












— 7-7 - 

NOP 
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^ AppUsOpT ^ 

Print-Using 


Rechtsbündige Zahlenformatierung 


von Ulrich Stiehl 


Unter Print-Using versteht man die Forma¬ 
tierung einer Zahl, z.B. die rechtsbündige 
und auf x Stellen nach dem Dezimalpunkt 
gerundete Zahlenausgabe mit einer vor¬ 
definierten Feldlänge. Da der in anderen 
Basic-Dialekten vorhandene Print-Using- 
Befehl in Applesoft fehlt, wurde ich schon 
wiederholt gebeten, eine kurze und flexi¬ 
ble Print-Using-Routine zu veröffentli¬ 
chen. In „Apple Assembler“, S. 192ff., 
war zwar bereits eine Print-Using-Version 
publiziert worden, doch war diese erstens 
auf 1-3 Dezimalstellen begrenzt und au¬ 
ßerdem war das Programm nicht relokativ. 
Das nachfolgende neue PRINT.USING hat 
folgende erweiterte Features: 

1. Die Routine ist völlig relokativ, kann also 
mit einer beliebigen Startadresse in den 
Speicher geladen werden, z.B. 

BLOAD PRINT.USING, A768 
BLOAD PRINT.USING, A$9500 
usw. 

2. Die Routine funktioniert sowohl unter 
Interpreter- wie auch unter Compiler-Ap¬ 
plesoft. Bei Interpreter-Applesoft erfolgt 
der Aufruf wahlweise mit CALL oder USR, 
bei Compiler-Applesoft (TASC, HAYDEN 
usw.) nur mit USR. CALL hat die Syntax 
CALLA, F, D, N 

und USR die Syntax 
N = USR (N) 

3. Es können 4 Parameter übergeben bzw. 
(bei USR) gepokt werden. Die Buchstaben 
A, F, D und N stehen für Variablennamen, 
die durch beliebige andere Variablenna¬ 
men sowie durch Formelausdrücke und 
Konstanten ersetzt werden können. 

3.1. A = Anfangsadresse: Diese ent¬ 
spricht der BLOAD-Anfangsadresse. 

3.2. F = Feldlänge: Die Feldlänge sollte im 
Bereich 11 bis 15 liegen. Wenn z.B. die 
Feldlänge 11 beträgt und eine formatierte 
Zahl, z.B. „123.45“, einschließlich Dezi¬ 
malpunkt 6 Steilen einnehmen würde, so 
werden 11 minus 6 = 5 Leertasten vorder 
Zahl eingefügt, damit eine Feldlänge von 
11 erreicht wird. Die denkbar längste Zahl, 
nämlich „-1.23456789E-12“, nimmt 15 
Stellen ein; daher die maximale Feldlänge 
15. Bei Nicht-Exponentialzahlen genügt 
eine Feldlänge von 11, weil 
„-1234567.89“ 11 Stellen belegt Man be¬ 
achte, daß unter Applesoft die Mantisse 
maximal 9 Stellen einnimmt. Ferner ist ein 
mögliches Minus („-“) sowie ein mögli¬ 
cher zu berücksichtigen. Wenn Sie 
wissen, daß die von Ihnen benötigten Zah¬ 
len einen bestimmten Bereich nicht über¬ 
schreiten, können Sie die Feldlänge ent¬ 
sprechend reduzieren, z.B. auf F = 3 für 
natürliche Zahlen im Bereich 0 bis 999. 


3.3. D = Dezimalstellen: Die Anzahl der 
Dezimalstellen (empfohlen 1-3) hängt von 
der Fetdiänge ab. Ferner muß man berück¬ 
sichtigen, daß bei mehr als 3 Dezimalstel¬ 
len oft keine Rundung mehr möglich ist. 
Beispielsweise läßt sich 123456789 nur 
noch „runden“, indem man Nullen an¬ 
hängt, z.B. „123456789.0000“. Die Run¬ 
dung erfolgt dadurch, daß die Zahl N zu¬ 
nächst mit 10 f D multipliziert, dann 0.5 
addiert, dann der Nachkommarest abge¬ 
hackt und schließlich durch 10 "f D geteilt 
wird, also bei N = 123.456 und D = 2: 
123.456^ 100 = 12345.6 
12345.6 -F 0.5 = 12346.1 
INT (12346.1) = 12346 
12346 / 100 = 123.46 
PRINT.USING gestattet auch die rechts¬ 
bündige Formatierung von Ganzzahlen, 
indem man D auf 0 setzt. 

^3.4. N = Number = Zahl: Dies ist die zu 
rundende Fließkommazahl. 

3.5. POKE A -H 1, 1 oder 0: Dies ist das 
FAC-Flag (= Exponentialzahl-Flag). Nach 
POKE A -H 1, 1 wird die Zahl N, wenn sie 
sich als Exponentialzahl (mit E, z.B. 1E20) 
nicht runden läßt, trotzdem ohne Rück¬ 
sicht auf die Feldlänge ausgegeben. Nach 
POKE A -I- 1, 0 werden Exponentialzahlen 
unterdrückt und statt dessen durch Leer¬ 
zeichen ersetzt. Auf diese Weise wird der 
mehrspaltige Ausdruck von Zahlenkolon¬ 
nen stets korrekt ausgeführt. 

4. CALL-Syntax: CALL A, F, D, N 
A steht für Anfangsadresse, z.B. 768 
F steht für Feldlänge, z.B. 11 
D steht für Dezimalstellen, z.B. 2 
N steht für Number = zu rundende Zahl 


5. USR-Syntax: N = USR (N) 

N steht für zu rundende Zahl. Der Wert 
von N geht durch Print-Using nicht verlo¬ 
ren. Die Werte für F und D müssen bei 
USR gepokt werden. Wenn z.B. die An¬ 
fangsadresse A = 768 beträgt, dann gilt: 
POKE A -h 1, FAC-Flag 
POKE A -K 5, F 
POKEA-H9, D 
POKE A -h 12, 56 

FAC-Flag, F und D müssen nur einmal 
gepokt werden. Ferner muß der USR-Vek- 
tor gesetzt und durch POKE A + 12, 56 
der Print-Using-Routine mitgeteilt werden, 
daß USR aktiv ist. Da dies alles etwas 
umständlich ist, sollte USR nur bei compi- 
lierten Applesoft-Programmen verwendet 
werden. 

Um PRINT.USING zu installieren, können 
Sie entweder das Maschinenprogramm 
mit BLOAD PRINT.USING laden oder die 
DATA-Statements in das eigene Apple- 
soft-Programm einbauen (siehe PRINT.¬ 
USING. DATA). Das Demonstrationspro¬ 
gramm PRINT.USING.DEMO veranschau¬ 
licht im Detail die Anwendung. 

Die Print-Using-Routine formatiert positive 
Zahlen, die größer/gleich 0 und kleiner als 
1 sind, in der Form „O.XX“ (hier als Bei¬ 
spiel 2 Dezimalstellen). A/egaf/Ve Zahlen in 
demselben Bereich werden in der Form 
„-.XX“ ausgewiesen. Wer hier die Form 
„-0.XX“ wünscht (also „0“ zwischen „-“ 
und „.“), kann die verbesserte und um 
einige Bytes gestraffte Version PRINT.¬ 
USING.G benutzen, die sich auf der 
Peeker-Sammeldisk befindet. Diese Ver¬ 
besserung wurde von Harald Grumser 
vorgenommen. 
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PRINT.USING.DEMO 

100 REM PRINT.USING.DEMO 
110 REM A = Startadresse 

120 REM F = Feldlänge (1-15) 

130 REM D = Dezimalstellen (0-8) 

140 REM N = Zahl{enausdruck) 

150 HOME : PRINT CHR$ {4)”BLOAD PRINT.USING.A"?68 
160 PRINT "PRINT USING.DEMO": PRINT : PRINT "1. 

Input.Demo": PRINT ; PRINT "2. Random.Demo": PRINT : 
PRINT "3. USR.Demo"; PRINT ; PRINT "0. Ende": PRINT : 
PRINT 

170 GET X$; ON X$ = "1" GOTO 190: ON X$ = "2" GOTO 290: 

ON X$ = "3" GOTO 400: ON X$ < > "0" GOTO 170: END 

180 REM Input.Demo 
190 A = 768 

200 POKE A + 12,24: REM CLC (sicherheitshalber wegen USR) 
210 F = 11 
220 D = 2 

230 INPUT "Zahl:";N$: IF N$ = "" THEN END 
240 N = VAL (N$) 

250 CALL A.F.D.N: REM Print,Using! 

260 PRINT " formatiert": PRINT N;" unformatiert" 

270 GOTO 230 

280 REM Random.Demo 

290 A = 768:F = 10 

300 POKE A + 12,24: REM CLC (sicherheitshalber wegen USR) 
310 Z = 1000 

320 FOR D = 5 TO 0 STEP - 1 

330 FOR R = 1 TO 100 

340 N = RND (1) * Z 

350 CALL A,F,D,N: REM Print.üsing! 

360 NEXT R; NEXT D 
370 END 

380 REM USR.Demo 

390 REM Vektor $0300=768 

400 POKE 10,76: POKE 11,0: POKE 12,3;A = 768 
410 POKE A + 12,56: REM SEC! 

420 POKE A + 1,0; REM FACFLAG 

430 POKE A + 5,10: REM FELDLEN 

440 Z = - 10000 

450 FOR D = 3 TO 0 STEP - 1 

460 POKE A + 9,D: REM DEZLEN 

470 FOR R = 1 TO 100 

480 N = RND (1) * Z 

490 N = USR (N): REM Print.Using! 

500 NEXT R; NEXT D 
510 END 


PRINT.USING.DATA 

100 REM PRINT.USING.DATA 

110 DATA 169,0,133,252,169,11,133,253,169,2 
120 DATA 133,254,24,176,16,32,76,231,134,253 
130 DATA 32,76,231,134,254,32,190,222,32,103 
140 DATA 221,162,16,160.1,32,43,235,164,254 
150 DATA 132,255,240,7,32,57,234,198,255,208 
160 DATA 249,165,162,72,70,162,32,160,231,32 
170 DATA 35,236,104,16,3,32,208,238,32,52 
180 DATA 237,162,0,189,0,1,240,61,201,69 
190 DATA 240,30,232,208,244,189,0,1,232.157 
200 DATA 0,1,202,202,16,245,160,48,201,45 
210 DATA 240,5,140.0,1.208,220,140,1,1 
220 DATA 240,215,56,165,252,208,6,166,253,32 
230 DATA 74,249,24,169,16,160,1,32.249,234 
240 DATA 144,6,32,46,237,24,144,241,96,228 
250 DATA 254,144,198,240,196,228,253,176,219,164 
260 DATA 254,240,1,232,138,168,196,253,176,6 
270 DATA 32,87,219,200,208,246,169,0,157,0 
280 DATA 1,164,254,240,19,202,202,189,0,1 
290 DATA 72,169,46.157,0,1,104,232,157,0 
300 DATA 1,136,208,237,185,0,1,240,179,32 
310 DATA 92,219,200,208,245 

320 RESTORE :A = 768: FOR X = A TO A + 204: READ Y: POKE 
X,Y; NEXT 

330 F = 11:D = 2:N = SIN (1): CALL A,F,D,N: PRINT : PRINT 
"Print.Using installiert" 


Hinweis: 

PRINT.USING läuft unter DOS 3.3 und ProDOS. 


PRiNT.USING 

BSAVE PRINT.USING. A768, L205 

BLOAD PRINT.USING mit beliebiger Startadresse 

1 ORG 768 

2 * 

3 * PRINT.USING 

4 • 

5 * 

6 * von U.Stiehl/28.03 85 

7 * 

8 * Diese relokative Utility 

9 * mit beliebiger Startadresse 

10 ¥ oder ersatzweise mit 

11 * BLOAD PRINT.USING, A 768 

12 * laden und dann aufrufen mit 

13 * 

14 * CALL A, F, D, N 

15 * 

16 * A = Adresse (z.B. 768) 

17 * F = Feldlänge (1-15) 

18 # D = Dezimalstellen (0-8) 

19 N = zu formatierende Zahl 

20 * 

21 * Die Namen der Variablen können 

22 * beliebig gewählt werden. 

23 * Sie sind jedoch durch Kommas 

24 * abzugrenzen. 

25 * 

26 * FACFLAG 

27 « -- 

28 ^ 

29 # POKE 768 +1, 1 = ja, 0 = nein 

30 * POKE A + 1, 1 = ja, 0 = nein 

31 ^ 

32 * Exponentielle und nicht-rundbare 

33 * Zahlen werden unformatiert 

34 *■ ausgedruckt, wenn das FACFLAG 

35 * auf 1 gesetzt ist Andernfalls 

36 * wird das Feld mit Spaces gefüllt. 

37 * 

38 * Es wird daher ein llstelliges Feld 

39 * empfohlen, da dann meist gerundet 

40 * werden kann. Beispiele: 

41 * 

42 F = 11, D = 1 -12345678.9 

43 * F = 11, D = 9 -.123456789 

44 * 

45 * D.h. 9stellige Mantisse sowie 

46 * 2 weitere Stellen für + "." 

47 D = 9 ist absoluter Grenzfall 
43 ät für N: 0 > /N/ < 1 

49 ä)f Warnung: Da die Parameter F und D 

50 * nicht auf Legalität überprüft 

51 * werden, "dreht" PRINT.USING "durch", 

52 * wenn F > 15 oder D > 9 und 

53 ätf D > F - 2 ist. 

54 # 

55 * PRINT.USING benötigt übrigens 

56 * ca. 0.02 Sek. pro Zahl. 

57 *------ 

58 * 


59 

MINUS 

EQU 

$2D 

tr_F. 

60 

PUNKT 

EQU 

$2E 

" . " 

61 

NULL 

EQU 

$30 

"0" 

62 

EXPO 

EQU 

$45 

"E" 

63 

* 




64 

FACFLAG 

EQU 

$00FC 

252 

65 

FELDLEN 

EQU 

$00FD 

253 

66 

DEZLEN 

EQU 

$00FE 

254 

67 

DEZCNT 

EQU 

$00FF 

255 

68 

* 




69 

FAC 

EQU 

$009D 

-$00A2 

70 

FACSIGN 

EQU 

$00A2 

Signum 

71 

STACKFAC 

EQU 

$0100 

-$010F 

72 

FACSAVE 

EQU 

$0110 

-$0114 

73 

* 




74 

MUL10 

EQU 

$EA39 

N=N*10 

75 

FADDH 

EQU 

$E7A0 

N=N+0.5 

76 

INT 

EQU 

$EC23 

N=INT(N) 

77 

NEGOP 

EQU 

$EED0 

N=-N 

78 

FOUT 

EQU 

$ED34 

N in Stack 

79 

FRMNUM 

EQU 

$DD67 

N in FAC 

80 

COMBYTE 

EQU 

$E74C 

Byte in X 

81 

MOVFM 

EQU 

$EAF9 

MEM->FAC 

82 

MOVMF 

EQU 

$EB2B 

FAC->MEM 
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033F: 10 03 


169 

BPL 

STRING 

0341: 20 D0 

EE 

170 

JSR 

NEGOP 



171 

* 




172 

* N als String im Stack ablegen 



173 

* 


0344: 20 34 

ED 

174 

STRING JSR 

FOUT ;N->Stack 



175 





176 

* 




177 

* STRLEN = Länge des N-Strings = X 



178 

* 


034T; A2 00 


179 

STRLEN1 LDX 

#0 

0349: BD 00 01 

180 

STRLEN2 LDA 

STACKFAC.X 

034C: F0 3D 


181 

BEQ 

ZERO 

034E: C9 45 


182 

CMP 

+EXPO 

0350: F0 lE 


183 

BEQ 

EXPONENT 

0352: ES 


184 

INX 


0353: D0 F4 


185 

BNE 

STRLEN2 ;stets 



186 

* 




187 

* Bei STRLEN 

< DEZLEN 



188 

* N-String nach rechts rücken 



189 

* und "0" voranstellen. 



190 

* Bei Negativzahl NACH 



191 

* 


0355: BD 00 

01 

192 

ADJUST1 LDA 

STACKFAC.X 

0358: E8 


193 

INX 


0359: 9D 00 01 

194 

STA 

STACKFAC.X 

035C: CA 


195 

DEX 


035D; CA 


196 

DEX 


035E: 10 F5 


197 

BPL 

ADJUSTl 

0360: A0 30 


198 

LDY 

#NULL 

0362: C9 2D 


199 

CMP 

#MINUS 

0364: F0 05 


200 

BEQ 

ADJUST2 

0366: 8C 00 01 

201 

STY 

STACKFAC 

0369; D0 DC 


202 

BNE 

STRLEN1 

036B: 8C 01 

01 

203 

ADJUST2 STY 

STACKFAC+1 

036E; F0 D7 


204 

BEQ 

STRLENl 



205 





206 

* Entweder Exponentialzahl 



207 

* oder Feld zu kurz für N-String. 



208 

* 


0370: 38 


209 

EXPONENT SEC 

;Carry! 

0371; A5 FC 


210 

LDA 

FACFLAG 

0373; D0 06 


211 

BNE 

FACM0VE2 



212 

* 




213 

* Nur Spaces 

ausgeben 



214 

* 


0375: A6 FD 


215 

LDX 

FELDLEN 

0377: 20 4A 

F9 

216 

JSR 

PRBLK2 



217 

* 




218 

* Wenn FACFLAG nicht 0 ist. 



219 

* dann Exponentialzahl oder 



220 

* nicht in das Feld passende 



221 

* Zahl trotzdem ausgeben. 



222 

* 




223 

* MOVFM ändert nicht Carry-Flag! 



224 

* 


037A: 18 


225 

CARRY CLC 


037B: A9 10 


226 

FACM0VE2 LDA 

#<FACSAVE 

037D: A0 01 


227 

LDY 

#>FACSAVE 

037F: 20 F9 

EA 

228 

JSR 

MOVFM 

0382: 90 06 


229 

BCC 

FACM0VE3 

0384: 20 2E ED 

230 

FACOUTl JSR 

PRNTFAC 

0387: 18 


231 

CLC 


0388: 90 Fl 


232 

BCC 

FACM0VE2 



233 

* 




234 

* Beim Exit befindet sich N 



235 

* wieder im FAC- 



236 

* 


038A: 60 


237 

FACM0VE3 RTS 

; Exit 



238 

* 




239 

* STRLEN < = 

DEZLEN? 



240 

* Tritt auf für N; 0 > N < 1 



241 

* 


038B: E4 FE 


242 

ZERO CPX 

DEZLEN 

038D: 90 C6 


243 

BCC 

ADJUSTl 

038F: F0 C4 


244 

BEQ 

ADJUSTl 



245 

* 




246 

* STRLEN + ", 

" > Feld? 



247 

* 


0391; E4 FD 


248 

CPX 

FELDLEN 

0393: B0 DB 


249 

BGS 

EXPONENT 

0395; A4 FE 


250 

LDY 

DEZLEN 

0397: F0 01 


251 

BEQ 

INT2 



252 

* 




253 

* X = X + 1 wegen "" 



254 

* 




83 

CHKCOM EQU $DEBE 

;Komma-Check 


84 

* 




85 

PRNTFAC EQU $ED2E 

;Print FAC 


86 

OUTDO EQU $DB5C 

;wie COUT 


87 

OUTSPC EQU $DB57 

;wie PRBL2 


88 

PRBLK2 EQU $F94A 

;X=Blanks 


89 





90 

* 




91 

* 

Parameter für USR festlegen 


92 

* 



0300: A9 00 

93 

ADRESSE LDA #0 

;A+1 

0302: 85 FC 

94 


STA FACFLAG 


0304; A9 0B 

95 


LDA +11 

;A+5 

0306: 85 FD 

96 


STA FELDLEN 


0308: A9 02 

97 


LDA +2 

;A+9 

030A: 85 FE 

98 


STA DEZLEN 



99 

* 




100 

* 

Wenn SEC, dann USR statt CALL 


101 

* 

CLC = $18; SEC = $38 {dez. 56) 


102 




030C: 18 

103 

USRFLAG CLC 

;A+12 

030D: B0 10 

104 


BCS USER 



105 

* 




106 

* 

COMBYTE überspringt 

Komma und 


107 

* 

wertet die Variablen 

1 F und D aus. 


108 

* 

Danach befindet sich 

L der 


109 

* 

Wert von F bzw. D im X-Register. 


110 

* 



030F: 20 4C E7 

111 


JSR COMBYTE 

;F 

0312; 86 FD 

112 


STX FELDLEN 


0314: 20 4C E7 

113 


JSR COMBYTE 

;D 

0317: 86 FE 

114 


STX DEZLEN 



115 

* 




116 

* 

CHKCOM überspringt Komma, 


117 

* 

FRMNUM überträgt Wert 


118 

* 

der Fließkommazahl N 

in 


119 

* 

den Floating-Point-Accumulator. 


120 




0319: 20 BE DE 

121 


JSR CHKCOM 


031C: 20 67 DD 

122 


JSR FRMNUM 

;N 


123 

* 




124 

* 

N = USR (N) 



125 

* 




126 

* 




127 

* 

Statt mit CALL A, F, 

D, N 


128 

* 

kann PRINT.USING auch mit 


129 

* 

N = USR (N) 



130 

* 

aufgerufen werden. 



131 

* 

Zu diesem Zweck muß 



132 

* 




133 

* 

(1) der USR—Vektor auf A gesetzt 


134 

* 

(000A: 4C 00 03) 

und 


135 

* 

(2) FACFLAG A + 1 

(0-1) 


136 

* 

FELDLEN A + 5 

(1-15) 


137 

* 

DEZLEN A + 9 

(0-8) 


138 

* 

USRFLAG A + 12 

($38=dez.56) 


139 

* 

gepokt werden. 



140 

* 



031F: A2 10 

141 

USER LDX #<FACSAVE ;FAC 

0321: A0 01 

142 


LDY +>FACSAVE ;retten 

0323; 20 2B EB 

143 


JSR MOVMF 



144 





145 

* 




146 

* 

Integer-Zahl (DEZLEN 

= 0)? 


147 

* 



0326: A4 FE 

148 


LDY DEZLEN 


0328; 84 FF 

149 


STY DEZCNT 


032A: F0 07 

150 


BEQ INTl 

;Integer 


151 

* 




152 

* 

N = N * (10 t D) 



153 




032C: 20 39 EA 

154 

MULTIPLY JSR MUL10 


032F: C6 FF 

155 


DEC DEZCNT 


0331; D0 F9 

156 


BNE MULTIPLY 



157 

* 




158 

* 

N = INT (/N/ + 0.5) 



159 

* 



0333: A5 A2 

160 

INTl LDA FACSIGN 


0335: 48 

161 


PHA 

:Save +- 

0336: 46 A2 

162 


LSR FACSIGN 

;N=/N/ 

0338: 20 A0 E7 

163 


JSR FADDH 

;N=N+0.5 

033B: 20 23 EC 

164 


JSR INT 

;Integer 


165 

* 




166 

* 

N = /N/ plus Signum I 

[+/-) 


167 




033E: 68 

168 


PLA 

;Load +- 
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0399 

E8 


255 


INX 





256 







257 

* 

Feldanfang mit Spaces auffüllen 




258 

* 



039A 

8A 


259 

INT2 TXA 


039B 

A8 


260 


TAY 


039C 

C4 FD 


261 

SPACES CPY 

FELDLEN 

039E 

B0 06 


262 


BCS 

ENDMARK 

03 A0 

20 57 

DB 

263 


JSR 

OUTSPC 

03 A3 

C8 


264 


INY 


03A4 

D0 F6 


265 


BNE 

SPACES 




266 

* 






267 

* 

Endmarker um 1 nach oben setzen 




268 

* 






269 

* 

Beispiel: 100e -> 100ee 




270 

* 



03A6 

A9 00 


271 

ENDMARK LDA 

#$00 ;Endmarker 

03A8 

9D 00 

01 

272 


STA 

STACKFAC,X 

03AB 

A4 FE 


273 


LDY 

DEZLEN 

03AD 

F0 13 


274 


BEQ 

FAC0UT2 :Integer 




275 

* 






276 

* 

Dezimalpunkt einfügen 




277 

* 






278 

* 

Beispiel; 100ee (1*100) 




279 

* 

100. e 




280 


10.0e 




281 

* 

1 

.00e (1.00) 




282 

* 



03 AF 

; CA 


283 

DEZPUNKT DEX 


03B0 

: CA 


284 


DEX 


03B1 

: BD 00 01 

285 


LDA 

STACKFAC,X 

03B4 

: 48 


286 


PHA 


03B5 

: A9 2E 


287 


LDA 

#PUNKT 

03B7 

: 9D 00 01 

288 


STA 

STACKFAC,X 

03BA 

: 68 


289 


PLA 


03BB 

: E8 


290 


INX 


03BC 

: 9D 00 01 

291 


STA 

STACKFAC,X 

03BF 

: 88 


292 


DEY 


03C0 

: D0 ED 


293 


BNE 

DEZPUNKT 




294 

* 






295 

* 

Stack bis Endmarker ausgeben 




296 

* 



03C2 

B9 00 

01 

297 

FAC0UT2 LDA 

STACKFAC,Y 

03C5 

F0 B3 


298 


BEQ 

CARRY 

03 C7 

20 5C 

DB 

299 


JSR 

OUTDO 

03CA 

C8 


300 


INY 


03CB 

D0 F5 


301 


BNE 

FAC0UT2 




302 

* 






303 

* 

Wie PRINT.USING funktioniert. 




304 

* 

soll anhand 

der Routinen 




305 

* 

MULTIPLY, ADJUST und DEZPUNKT 




306 

* 

für DEZLEN ^ 

=2 (2 Durchläufe) 



307 

* 

durch Grenzfälle erläutert 



308 

* 

werden (e ^ Endmarker) 



309 

* 





310 

* 

Zahl "1"; 1 * 100 

- "100" 



311 

* 





312 

* 

100e N-String 




313 

* 

10,0e DEZPUNKT 1, 

Durchlauf 



314 

* 

1.00e DEZPUNKT 2, 

Durchlauf 



315 

* 





316 

* 

Zahl "-l": -1 * 100 - "-100'' 



317 

* 





318 

* 

-100e N-String 




319 

* 

-10,0e DEZPUNKT 1 

. Durchlauf 



320 

* 

-1.00e DEZPUNKT 2 

, Durchlauf 



321 

* 





322 

* 

Zahl ’M" : .1 * 100 - ”10" 



323 

* 





324 

* 

10e N-String 




325 

* 

010e ADJUST 1. 

Durchlauf 



326 

* 

01.0e DEZPUNKT 1. 

Durchlauf 



327 

* 

0.10e DEZPUNKT 2. 

Durchlauf 



328 

* 





329 

* 

Zahl "-.1"; -.1 * 

100 = "-10" 



330 

* 





331 

* 

-10e N-String 




332 

* 

-1.0e DEZPUNKT 1. 

Durchlauf 



333 

* 

-.10e DEZPUNKT 2. 

Durchlauf 



334 

* 





335 

* 

Zahl ”,01”: .01 * 

100 = "1" 



336 

* 





337 

* 

le N-String 




338 

* 

01e ADJUST 1. 

Durchlauf 



339 

* 

001e ADJUST 2. 

Durchlauf 



340 

* 

00,le DEZPUNKT 1 

Durchlauf 



341 

* 

0.0le DEZPUNKT 2 

Durchlauf 



342 

* 





343 

* 

Zahl "-.01”: -,01 

* 100 - "-1" 



344 

* 





345 

* 

-le N-String 




346 

* 

-01e ADJUST 1. 

Durchlauf 



347 

* 

-0.1e DEZPUNKT 1. 

Durchlauf 



348 

* 

-,01e DEZPUNKT 2. 

Durchlauf 



349 

* 





350 

* 

Zahl "0"; 0 * 100 

= "0” 



351 

* 





352 

* 

0e N-String 




353 

* 

00e ADJUST 1. 

Durchlauf 



354 

* 

000e ADJUST 2. 

Durchlauf 



355 

* 

00.0e DEZPUNKT 1, 

Durchlauf 



356 

* 

0 00e DEZPUNKT 2. 

Durchlauf 


205 Bytes 





_ 0 _ 














Für llc und Ile mit 64K-Karte 

SUPERPLOT 

Double-Hires-Utility 

von Karl-Walter Bott, 1984, Programmdiskette und Manual, DM 48,- 

SUPERPLOT ist eine neue, ungewöhnlich konnpakte und schnelle Ampersand-Utility für Double Hires, die einschließlich eines 
vollständigen ASCII-Shape-Zeichensatzes wahlweise in Bank 1 oder Bank 2 der Language Card liegt und damit sowohl unter 
ProDOS als auch unter DOS 3.3, falls letzteres in die LC-Bank geschoben wurde, benutzt und in eigene Appiesoftprogramme 
integriert werden kann. SUPERPLOT unterstützt die üblichen HGR-Befehle, denen lediglich ein & vorangestellt werden muß, 
also z. B. & HPLOT 500,100 TO 500,150 usw. SUPERPLOT ist speziell für das Plotten von beschrifteten wissenschaftlichen 
Funktionskurven mit hoher Auflösung gedacht und weniger für HGR-Spiele. 

Hüthig Software Service ■ Postfach 102869 • 6900 Heidelberg 1 
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MMMMM 

rrrrr 

deeUer 

Börse 


Gelegenheitsanzeigen 

Sie können unter dieser 
I Rubrik zu einem besonders 
I günstigen Preis 

I •Ihre Hardware und 
Software verkaufen 

• Ihre Hard- und Software 
suchen 

• Kontakte knüpfen und 
vieles mehr 


Musteranzeige privat 

1 Druckzeile ä 32 Buch¬ 
staben nur DM 5 
zuzügl. ges. MwSt. 

Beispiel: 


Verkaufe neuwertigen Typenrad¬ 
drucker mit Apple-Interface. 

Preis auf Anfrage. Tel. 007 


nur DM 17,10 inkl. MwSt. 


Musteranzeige gewerblich 

i Die einspaltige Millimeter¬ 
zeile (42 mm breit) kostet 

I 5,50 zuzügl. ges. MwSt. 

[ 

Beispiel: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple II 
plus 16 Funktionstasten und sepa¬ 
ratem Ziffernblock. 

Fa. Keyboard & Co. 


nur DM 137,94 inkl. MwSt. 


^M^^^pEEkER^ 


• 

:0 

BQ 

1 

AUFTRAG FÜR KLEINANZEIGEN 

Bitte veröffentlichen Sie In der nächsterreichbaren Ausgabe nachstehenden 

Text unter folgender Rubrik: 

□ suche Hardware □ suche Software □ Tausch □ Verschiedenes 

□ biete Hardware □ biete Software □ Kontakte □ Chiffre 

• 

• 

Q. 


































































































































































































Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort¬ 
zwischenräume. Bitte Absender nicht vergessen. 

Chiffregebühr DM 6,- zuzügl. MwSt. 


PeeUer ^ 


s 


S 

3 

■ö 

P 

Q. 




Zu der in »peeker«, Heft_ 


Seite- 


. erschienenen 


n Anzeige □ Produktbesprechung 


über, 


bitte ich um detaillierte Information. 

Ich wünsche □ Prospekt, Datenblatt □ Preisliste □ schriftliches Angebot □ tel. Rückruf 


Menge 

Produkt und BeBteiinummer 

äOM 

gesamt DM 






















gebe ich neben¬ 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 


Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


^^^^pEEkER^ 



Schreiben Sie uns, wenn Sie Fragen, Ergänzungen oder Anregungen zu 
Aufsätzen in »peeker« haben: 



I 








































































Info-Karte Produkt-Karte peeker- Börse 


Vorname, Name 


Boful 


StraQe 


ANTWORTKARTE 


Wo h non 


PLZ 

Bitte veröffentlichen Sie den um¬ 
stehenden Text von_Zeilen 

ä_DM in der nächsterreich¬ 

baren Ausgabe von »peeker« 


Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 


peeker-Börse 

Anzeigen-Service 

Dr. Alfred Hüthig Verlag 
Postfach 10 28 69 
6900 Heidelberg 1 


Produkt- 

Karte 

Wünschen Sie 
weitere Informationen 
zu einem der im Heft 
vorgestellten 
Produkte ? 


Datum 


Unterschrift 



Karte bitte vollständig ausfüllen 


Nichts einfacher als 
das. 

Produkt-Karte aus¬ 
füllen, mit 60-Pfennig 
frankieren und 
absenden. 


Vorname, Name 


Firma 


POSTKARTE 




Firma 


PLZ/Ort 


Si raffe 


Telefon mit Vorwahl 


Anschrift der Firma angeben, bei der Sie 
bestellen bzw.von der Sie Informationen 
wünsche n 




pLZ/on 



Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Straße 


PL2/Orl 


Telefon mit Vorwahl 


POSTKARTE 


peeker 

Redaktion 

Postfach 10 28 69 
6900 Heidelberg 1 


Vorher aber nicht 
vergessen: 
kreuzen Sie an, 
welchen Informations¬ 
wunsch Sie haben. 

Damit erleichtern Sie 
dem Hersteller 
eine gezielte Beant¬ 
wortung Ihrer Anfrage 

Zum Schluß tragen 
Sie auf der Rück¬ 
seite die genaue 
Anschrift des 
Inserenten/Herstellers 
und Ihre vollständige 
Firmenanschrift ein. 






































^ AppUsoir .iM 

Referenztest 


Zeilenverweise in Applesoft-Programmen 

von Ludger T. Engbert 


Bei der Entwicklung umfangreicher Ap- 
plesoft-Programme mit vielen Zeilenver¬ 
weisen (GOTO, GOSUB) ist es z.T. 
schwierig nachzuvollziehen, ob alle Refe¬ 
renzen erfüllt sind. Manche „UNDEFINED 
STATEMENT“-Meldung erscheint erst 
nach längerem Gebrauch, weil ein selten 
benutzter Programmteil beim Test nicht 
berücksichtigt wurde. 

Abhilfe schafft das Programm REF.TEST, 
das alle Zeilenverweise verifiziert und 
Sprünge auf nicht existierende Zeilen an¬ 
zeigt. Dabei werden nicht nur alle GOTO- 
und GOSUB-Befehle überprüft, sondern 
auch Zeilennummern nach THEN sowie 
Aufzählungen (z.B. ON I GOSUB 100, 
200, 300) berücksichtigt. 


Erläuterung zum Programmablauf 

Beim ersten Aufruf durch „BRUN REF.¬ 
TEST“ wird der Ampersand-Vektor initiali¬ 
siert, wodurch die Routine immer wieder 
durch Eingabe von gestartet werden 
kann. 

Beim eigentlichen Aufruf wird zunächst 
der aktuelle Textpointer gesichert, da die¬ 
ser von LINGET (s.u.) bei der Auswertung 
der Zeilennummer benötigt wird. 

Einer Applesoft-Programmzeile sind im¬ 
mer 4 Bytes vorangestellt: Die ersten bei¬ 
den Bytes enthalten einen Zeiger auf die 
nachfolgende Programmzeile, die näch¬ 
sten beiden Bytes beinhalten die Zeilen¬ 
nummer (Low-Byte zuerst). 

Die Routine NXTLIN (Next Line) testet, ob 
das Programmende erreicht ist. In diesem 
Fall sind beide Link-Bytes Null (Das Low- 
Byte kann unabhängig vom Programmen¬ 
de Null sein). Wurde das Programmende 
erreicht, wird nach END gesprungen, um 
den Textpointer wieder herzustellen. An¬ 
dernfalls überträgt das Programm die der¬ 
zeitige Zeilennummer nach CURLIN (Cur¬ 
rent Line). 

Die Routine NXTBYT (Next Byte) testet 
das Zeichen, auf das der Textpointer zeigt. 
Im Falle, daß es sich um 
GOTO, 

GOSUB oder 

TFIEN, gefolgt von einer Ziffer 
handelt, wird die Routine LINE? abgear¬ 
beitet, die überprüft, ob eine entsprechen¬ 
de Zeile im Applesoft-Programm existiert. 
Ist dieser Test negativ, wird ein Fragezei¬ 
chen, die gesuchte Zeile und die Zeilen¬ 
nummer der fehlerhaften Anweisung aus¬ 
gegeben. 

In jedem Fall wird in der Routine FOUND 
getestet, ob nach der derzeitigen Zeilen¬ 
nummer ein Komma folgt. Auch diese wei¬ 
teren Zeilennummern werden von der 
Routine LINE? untersucht, bis kein weite¬ 
res Komma mehr folgt. 


Erklärung der aufgerufenen 
Applesoft-Routinen 

CHRIST - (Character test) testet das Zei¬ 
chen (Character) im Akku. Flandelt es sich 
dabei um eine Ziffer ($30-$39), so wird 
das Carry-Flag gelöscht. Bei End-of- 
Statement ($00 oder „:“) wird das Zero- 
Flag gesetzt. 

FNDLIN - (Find Line) durchsucht den BA- 
SlC-Programmtext nach der Zeilennum¬ 
mer, die in LINNUM ($0050, $0051) abge¬ 
legt ist. Existiert die Zeile, wird das Carry- 
Flag gesetzt. 

LINGET - (Line Get) wertet den Ausdruck 
(Zahl als ASCII-Folge), auf den der Text¬ 
pointer ($00B8, $00B9) verweist, aus und 
trägt das Ergebnis in LINNUM ($0050, 
$0051) ein. Beim Einsprung müssen Akku 
und Carry-Flag durch CF1RGET (bzw. 
CFiRTST) initialisiert sein. 

CRDO - (Carriage Return do) sendet ein 
CR zum aktuellen Ausgabegerät. 

OUTSP - (Out Space) gibt ein Leerzei¬ 
chen ($20) aus. 

OUTQST - (Out Question Mark) gibt ein 
Fragezeichen ($3F) aus. 

LINPRT - (Line Print) gibt die Zahl dezimal 
aus, die sich im Akku (Low-Byte) und X- 
Register (Fligh-Byte) befindet. 

Kurzhinweise 

1. Zweck: 

Fliifsprogramm zur Überprüfung von Zei¬ 
lenverweisen 

2. Konfiguration: 

Apple l!-H, Ile, Ile; wahlweise DOS 3.3 
oder ProDOS 

3. Test: 

BRUN REF.TEST 

Beliebiges Applesoft-Programm laden 
& 

4. Sammeldisk: 

REF.TEST 

(Maschinenprogramm) 

T.REF.TEST 

(Big-Mac-Quelltext) 
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REF.TEST 

1 **********^)(*^^#ii^**#**^|t^(f;it*^^* 





2 

* 







3 

* 

REF. 

TEST 





4 

* 



* 




5 

* Applesoft-BASIC- 

* 




6 

* 

Utility 

* 




7 

* 



* 




8 

* zeigt 

alle 





9 

* UNDEFINED 

STATEMENTS 





10 

* 



* 




11 

* L.T. 

Engbert, Jan. 84 

* 




12 

m 



* 




13 








14 

* 







15 

* BSAVE 

REF.TEST, A$300, 1 

L$93 




16 

* 







17 

* Installieren mit BRUN REF.TEST 




18 

* Aufruf 

mit 






19 

* 







20 


ORG 

$300 





21 








22 

LINNUM 

EQU 

$50 





23 

TXTTAB 

EQU 

$67 





24 

CURLIN 

EQU 

$75 





25 

TXTPTR 

EQU 

$B8 





26 

CHRTST 

EQU 

$BA 





27 

AMPER 

EQU 

$3F5 





28 

FNDLIN 

EQU 

$D61A 





29 

LINGET 

EQU 

$DA0C 





30 

CRDO 

EQU 

$DAFB 





31 

OUTSP 

EQU 

$DB57 





32 

OUTQST 

EQU 

$DB5A 





33 

LINPRT 

EQU 

$ED24 





34 








35 

** Ampersand- 

'Vektor auf ** 




36 

** Programmanfang setzen ** 




37 





0300: 

: A9 

4C 

38 


LDA 

*$4C 

: JMP 

0302 : 

: 8D 

F5 03 

39 


STA 

AMPER 

; 8e-Adresse 

0305: 

A9 

10 

40 


LDA 

#<REFS 


0307: 

8D 

F6 03 

41 


STA 

AMPER-l-1 i 

;Lo-Byte 

030A: 

A9 

03 

42 


LDA 

#>REFS 


030C: 

8D 

F7 03 

43 


STA 

AMPER+2 ; 

:Hi-Byte 

030F: 

60 


44 


RTS 






45 








46 

** Melde 

UNDEFINED STATEMENTS ** 




47 





0310: 

A5 

B8 

48 

REFS 

LDA 

TXTPTR 


0312: 

48 


49 


PHA 



0313: 

A5 

B9 

50 


LDA 

TXTPTR+1 


0315: 

48 


51 


PHA 



0316: 

: A5 

67 

52 


LDA 

TXTTAB 

TXTTAB 

0318: 

85 

B8 

53 


STA 

TXTPTR 

-> 

03 lA: 

: A5 

68 

54 


LDA 

TXTTAB-tl 

TXTPTR 

031C: 

: 85 

B9 

55 


STA 

TXTPTR+1 


031E: 

: D0 

03 

56 


BNE 

NXTLINl 

;unbedingt 




57 





0320 

20 

88 03 

58 

NXTLIN 

JSR 

BYTGET 

Lo-Link 

0323 

20 

88 03 

59 

NXTLINl 

JSR 

BYTGET 

Hi-Link 

0326 

F0 

59 

60 


BEQ 

END 

Programmende 

0328 

20 

88 03 

61 


JSR 

BYTGET 

Lo-Line# 

032B 

85 

75 

62 


STA 

CURLIN 


032D 

20 

88 03 

63 


JSR 

BYTGET 

;Hi-Line+ 

0330 

85 

76 

64 


STA 

CURLIN+1 





65 





0332 

20 

88 03 

66 

NXTBYT 

JSR 

BYTGET 


0335 

C9 

00 

67 

NXTBYTl 

CMP 

+$00 


0337 

F0 

E7 

68 


BEQ 

NXTLIN 





69 





0339 

: C9 

AB 

70 


CMP 

+$AB 

;G0T0 

033B: 

: F0 

11 

71 


BEQ 

LINE? 


033D 

: C9 

B0 

72 


CMP 

#$B0 

;G0SUB 

033F 

: F0 

0D 

73 


BEQ 

LINE? 


0341 

: C9 

C4 

74 


CMP 

#$C4 

;THEN 

0343 

: D0 

ED 

75 


BNE 

NXTBYT 

; nein 

0345 

: A0 

01 

76 


LDY 

+ 1 


0347 

: Bl 

B8 

77 


LDA 

(TXTPTR) ,Y 


0349 

: 20 

BA 00 

78 


JSR 

CHRTST 

;Ziffer? 

034C 

: B0 

E4 

79 


BCS 

NXTBYT 

; nein 




80 





034E 

20 

88 03 

81 

LINE? 

JSR 

BYTGET 


0351 

18 


82 


CLC 



0352 

20 

0C DA 

83 


JSR 

LINGET 


0355 

20 

lA D6 

84 


JSR 

FNDLIN 


0358 

B0 

ID 

85 


BCS 

FOUND 

;wenn gefunden 

035A 

20 

5A DB 

86 


JSR 

OUTQST 


035D 

A5 

51 

87 


LDA 

LINNUM+1 


035F 

A6 

50 

88 


LDX 

LINNUM 



0361 

20 

24 

ED 

89 


JSR 

LINPRT 

0364 

20 

57 

DB 

90 


JSR 

OUTSP 

0367 

20 

57 

DB 

91 


JSR 

OUTSP 

036A 

20 

57 

DB 

92 


JSR 

OUTSP 

036D 

A5 

76 


93 


LDA 

CURLIN+1 

036F 

A6 

75 


94 


LDX 

CURLIN 

0371 

20 

24 

ED 

95 


JSR 

LINPRT 

0374 

20 

FB 

DA 

96 


JSR 

CRDO :Line Feed 

0377 

A0 

00 


97 

FOUND 

LDY 

+0 

0379 

Bl 

B8 


98 


LDA 

(TXTPTR) ,Y 

037B 

C9 

2C 


99 


CMP 

#' , ' ;Aufzählung? 

037D 

F0 

CF 


100 


BEQ 

LINE? 

037F 

D0 

B4 


101 


BNE 

NXTBYTl 





102 








103 

Routine abschließen ** 





104 




0381 

68 



105 

END 

PLA 


0382 

85 

B9 


106 


STA 

TXTPTR+1 

0384 

68 



107 


PLA 


0385 

85 

B8 


108 


STA 

TXTPTR 

0387 

60 



109 


RTS 






110 








111 

** Zeichen aus Programm holen *+ 





112 




0388 

E6 

B8 


113 

BYTGET 

INC 

TXTPTR 

038A 

D0 

02 


114 


BNE 

BYTGETl 

038C 

E6 

B9 


115 


INC 

TXTPTR+1 

038E 

A0 

00 


116 

BYTGETl 

LDY 

+0 

0390 

Bl 

B8 


117 


LDA 

(TXTPTR) ,Y 

0392 

60 



118 


RTS 


147 Bytes 







Die ProDOS-Analyse 

Version 1.0.1, 1.0.2, 1.1.1 
von Arne Schäpers 

1985, ca. 480 S.. kart., 

DM 68,- 

ISBN 3-7785-1134-3 

„Die ProDOS Analyse“ ist die umfangreichste und detail¬ 
lierteste Darstellung, die jemals ein Apple-Betriebssystem 
erfahren hat. Wer die „Innereien“ von ProDOS bis zum 
letzten Byte, z. T. bis ins letzte Bit kennenlernen möchte, 
braucht dieses Buch. Das komplette Betriebssystem (Urla¬ 
der, MLI, Disk-Driver, RAM-Disk-Driver und Uhr-Routine) 
mit Ausnahme des BASIC-SYSTEM wird mit umfangrei¬ 
chen Kommentaren und Übersichtstabellen disassem- 
bliert. Dabei werden alle bisherigen Versionen von 1.0.1 
bis 1.1.1 berücksichtigt. „Die ProDOS-Analyse“ be¬ 
schreibt erstmals auch mehrere Programmierfehler, die bis 
in die neueste Version zu finden sind. Auch die nicht im 
„Technical Reference Manual“ aufgeführten Eigenschaften 
von ProDOS werden analysiert und beschrieben, z. B. die 
vertrackten eingebauten Testroutinen zur Identifikation der 
verschiedenen Apple-ll-Modelle und eventueller Nachbau¬ 
geräte. Programmierer, die ProDOS versionsabhängig 
„patchen“ möchten, erhalten hier den genauen Überblick, 
wo was geändert werden muß, damit dies keine negativen 
Konsequenzen hat. Durch die minutiöse theoretische Se- 
zierung von ProDOS eröffnen sich völlig neue program¬ 
mierpraktische Perspektiven. 

Dr. Alfred Hüthig Verlag 

6900 Heidelberg • Postfach 102860 
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.«^PAScaL^^ 


Tips und Tricks 

in Pascai 

Teil 4: Die Compiler-Optionen von Dieter Geiß 


Ein mächtiges Werkzeug zur Programm- 
Optimierung stellen die Compiler-Optio¬ 
nen dar. Aber nicht nur zur Optimierung 
kann man sie gebrauchen, manche Kon¬ 
struktionen werden durch sie erst möglich. 
Wer glaubt, er kenne alle Optionen genau, 
der sollte trotzdem weiterlesen, denn in 
diesem Artikel werden viele erstaunliche 
Tatsachen ans Licht gelangen, die man 
weder in den Handbüchern noch in ande¬ 
ren Artikeln finden kann. 

Eine Compiler-Option tritt bekanntlich in 
einem Pascal-Programm in einer Kom¬ 
mentarklammer mit nachfolgendem „$“ 
auf, also z.B. (*$G-k^) oder {$G-h}. 
Trifft der Compiler auf eine solche Option, 
wird ein spezieller Zustand eingenommen, 
in dem man z.B. ein um ein „Goto“ erwei¬ 
tertes Pascal benutzen kann. Eine Option 
besteht meistens aus einem, manchmal 
auch aus mehreren Buchstaben mit einem 
darauf folgenden Parameter. Mehrere Op¬ 
tionen können mit Kommata getrennt wer¬ 
den, wenn der Parameter der Option kein 
Filename ist. Ein Leerzeichen zwischen 
dem und dem „$“ ist nicht erlaubt, 
ebensowenig wie zwischen der Option 
(z.B. „G“) und dem Parameter (z.B. 

Genug zur Syntax, diese kann auch in den 
Handbüchern nachgelesen werden. 

Die Compiler-Optionen werden in alpha¬ 
betischer Reihenfolge mit konkreten Bei¬ 
spielen erklärt. 

1, C - Die Comment-Option 

Die C-Option kann benutzt werden, um 
einen Kommentar in den übersetzten 
Codefile zu bringen. Die Zeichenkette, die 
auf „0“ folgt, wird in Block 0 des Codefiles 
geschrieben. Dafür sind genau 80 Bytes 
reserviert. Da es sich hierbei um einen 
String handelt, darf eine Länge von 79 
Zeichen nicht überschritten werden (das 


erste Byte eines Strings beinhaltet die 
Länge). Die Option hat z.B. folgendes 
Aussehen: 

(^C von Dieter Geiß, 5. August 1985*) 

Die Leerzeichen, die direkt hinter dem 
„0“ stehen, werden nicht übernommen. 
Die Option muß in der äußersten stati¬ 
schen Ebene auftreten, also im Hauptpro¬ 
gramm, sonst wird der Fehler 194 („Com- 
ment must appear at top of program“) 
ausgegeben. Warum das so ist, soll für 
interessierte Leser ebenfalls erklärt 
werden. 

Beim Übersetzen von Programmen wird 
vom Compiler eine dynamische Symbol¬ 
tabelle angelegt. In jeder Prozedur, die im 
Hauptprogramm oder in anderen Prozedu¬ 
ren auftritt, können dabei lokale Konstan¬ 
ten, Typen und Variablen erklärt werden. 
Diese sind außerhalb der Prozedur, in der 
sie definiert wurden, nicht mehr bekannt 
(Blockstruktur). Ist also die Übersetzung 
einer Prozedur beendet, kann der Com¬ 
piler den Teil der Symboltabelle freigeben, 
in der die lokalen Größen der Prozedur 
definiert waren. Da die Symboltabelle auf 
dem Heap liegt, kann der Compiler leicht 
diesen Teil mit einem Release-Aufruf frei¬ 
geben. Unglücklicherweise reserviert sich 
der Compiler aber oben auf dem Heap 
auch Platz für den String, der bei der C- 
Option erzeugt wird. Würde also kein Feh¬ 
ler 194 auftreten, wäre der String verloren, 
wenn die Option innerhalb einer Prozedur 
erklärt wurde. 

Leider hat sich beim Compiler der Pascal- 
Version 1.2 ein Fehler eingeschlichen, der 
beim 1.1-Compiler noch nicht vorhanden 
war. Wenn der Compiler den Kommentar, 
der durch die C-Option erzeugt wurde, in 
den Codefile kopiert, dann vergißt er das 
Längenbyte des Strings, was zur Folge 
hat, daß der erste Buchstabe als Längen¬ 


byte interpretiert wird und dieser Buchsta¬ 
be dann im Codefile fehlt. Läßt man sein 
Programm oder seine Unit mit dem auf der 
APPLES-Diskette befindlichen LIBMAP- 
Programm ausgeben, so wird auf jeden 
Fall nicht der String ausgegeben, den man 
durch die C-Option eingegeben hat. Die¬ 
sen Fehler kann man durch ein vorange¬ 
stelltes „0“ beheben. „0“ hat den ASCII- 
Wert 79 (maximale Länge des Comment- 
Strings), also z.B. 

(*$C0 von Dieter Geiß, 5. August 
1985*) 

Das Längenbyte hat dann zwar immer die 
Länge 79, was aber nichts ausmacht, da 
die restlichen Bytes des Strings mit ASCII 
NUL aufgefüllt werden. 


2. D - Die Debugger-Option 

Diese Option wird in keinem Handbuch 
erklärt, da in der UCSD-Version 11.1 (Apple 
Pascal 1.1 und 1.2) kein Debugger imple¬ 
mentiert ist. Nichtsdestoweniger soll die 
Wirkung dieser Option erklärt werden. Ein¬ 
geschaltet wird die Option mit (*$D+*), 
abgeschaltet mit (*$D-*). Ist die Option 
eingeschaltet, so nimmt der Compiler an, 
daß das Programm mit einem Debugger 
untersucht wird. In jeder Zeile, die über¬ 
haupt Code erzeugt (also keine Kommen¬ 
tarzeilen), wird ein P-Code-Befehl BPT 
(Breakpoint) mit einem anschließenden 
Big-Parameter erzeugt. Dieser Parameter 
gibt die Zeilennummer des Quellcodes an, 
in dem sich der Breakpoint befindet. Ein 
Debugger kann dann sogar die Zeilen¬ 
nummer im Quellcode angeben, in dem 
ein Breakpoint gesetzt wurde, obwohl nor¬ 
malerweise ein Pascal-Programm nicht 
zeilenorientiert ist. Damit der Programmie¬ 
rer sehen kann, wo seine Breakpoints ge¬ 
setzt sind, wird in einem Compiler-Listing, 
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das durch eine L-Option (s.u.) erzeugt 
werden kann, der die Prozedur-Nummer 
und Verschachtelungstiefe trennende 
Doppelpunkt durch einen Stern ersetzt. 
Beispiel (bitte übersetzen lassen): 
(^if$D-f-,Q-h,L #1 :^) 
program test; 
begin 
repeat 
until false 
end. 

3. E - Die Extended-File-Option 

Warum diese Option in keinem Handbuch 
zu finden ist, ist verwunderlich, da sie 
recht brauchbar ist. Eingeschaltet wird sie 
mit (^t^$E-t-*), abgeschaltet mit (4i^$E-iie). 
Um deren Wirkung zu erklären, muß etwas 
weiter ausgeholt werden. Es geht um die 
Definitionen von Files. Jedesmal, wenn 
der Programmierer in seinem Programm 
einen File definiert, also z.B. mit 
var F: file; 

wird dieser vom Compiler in einer speziel¬ 
len Liste eingetragen. Bevor der Code für 
eine Prozedur erzeugt wird, in der Files 
definiert wurden, wird vom Compiler Code 
eingefügt, um diese Files zu initialisieren. 
Dies ist nötig, da es verschiedene Arten 
von Files gibt (Interactive, Text, Untyped, 
Structured), aber alle Files die gleiche in¬ 
terne Datenstruktur haben (File Informa¬ 
tion Block). Diese Initialisierung kann vom 
Programmierer nicht unterbunden werden. 
Außerdem erzeugt der Compiler Code am 
Ende einer Prozedur, um alle Files wieder 
zu schließen. Dies ist für den Fall gedacht, 
daß der Programmierer es vergessen soll¬ 
te. Es wird also ein implizites „dose (nor¬ 
mal)“ durchgeführt. Würden Files nicht 
geschlossen werden, so würden sie auf 
Diskette als nicht geschlossene Files ste¬ 
hen, deren Jahr im Filedatum 100 beträgt, 
also eine illegale Zahl. Auf diese Files kann 
dann nicht mehr richtig zugegriffen wer¬ 
den (siehe auch „Pascal-Directory unter 
der Lupe“, Peeker 1/85, Seite 65, Ab¬ 
schnitt Daterec). 

Das oben Dargelegte ist auch der Grund, 
warum In den „Units“ keine privaten Files 
definiert werden dürfen: Die implizite 
Close-Anweisung käme zu früh, da der 
Initialisierungstell einer „Unit“ nur einmal 
durchlaufen wird. Der Fehler 191 („No 
private Files“) tritt auf, wenn ein File ent¬ 
weder im Implementierungstell einer Unit 
oder In einer Prozedur der Unit lokal erklärt 
wurde. Wird er im Interface-Teil definiert, 
so wird bei dem Programm, das diese Unit 
benutzt, der Code für Initialisierung und 
Schließen des Files eingefügt. 

Will man nun aber doch private Files in 
einer Unit definieren, so hält einen nichts 
davon ab, wenn man ein (^$E-F^it) in 
seinen Quelltext einfügt. Dann tritt kein 


Fehler 191 mehr auf, dafür wird aber mehr 
Verantwortung auf den Programmierer ab¬ 
gewälzt. Nach wie vor wird zwar Code für 
das Initialisieren der Files erzeugt, nicht 
jedoch für das Schließen. Dies muß dann 
der Programmierer übernehmen. Private 
Files werden z.B. in der neuen von mir 
erstellten „TurtleGraphlcs“ benutzt, um 
Zeichensätze zu laden und Hires-Bilderzu 
laden und zu speichern. Ein Beispiel für 
private Files ist in Listing 1 gezeigt. 

4, F - Die Bytes-Flipped-Machine- 
Option 

Wer sich beim Konfigurieren seines Sy¬ 
stems mit Hilfe des Programms SETUP- 
.CODE auf der APPLES-Diskette Gedan¬ 
ken darüber gemacht hat, was die Frage 
„Has Byte Flipped Machine“ zu bedeuten 
hat, findet hier die Antwort. 

Die P-Maschine ist ein Pseudo-Maschine, 
die praktisch auf jedem Rechner mit einem 
beliebigen Prozessor emuliert werden 
kann. Nun zerfällt nicht bei jedem Prozes¬ 
sor die Adresse eines Bytes im Speicher 
in zwei 8-BIt-Komponenten, die sich in der 
Reihenfolge Low-High im Speicher befin¬ 
den müssen. Das Format könnte genauso¬ 
gut im HIgh-Low-Format vorliegen. Beim 
6502 folgt auf einen JMP-Befehl z.B. im¬ 
mer zuerst der niederwertige Teil der 
Sprungadresse, dann der höherwertige 
Teil. Beim 68000 ist dies nicht der Fall. 
Eine Adresse wie z.B. $00FF3020 steht 
auch in dieser Reihenfolge im Speicher. 
Um nun Programme für Maschinen zu er¬ 
stellen, die ihre Adressen Im High-Low- 
Format haben, wurde die F-Option entwik- 
kelt. Schaltet man die Byte-Flipped-Machi- 
ne-Option mit (*$F+*) ein, so wird 
Code erzeugt, der nur auf den entspre¬ 
chenden Maschinen ablaufen kann. Beim 
6502 muß diese Option ausgeschaltet sein 
(^$F-5it), was der Normalzustand beim 
Compilieren Ist. Läßt man sein Programm 
mit eingeschalteter Option übersetzen, so 
läuft es garantiert nicht mehr, da bei jeder 
Prozedur die Werte von Enter-IC, Exit-IC, 
Parameter-Size, Data-Size und die Jump- 
Table falsch interpretiert werden. 

5. G - Die Goto-Option 

Um zu verhindern, daß Programmierer die 
im Pascal-Sprachschatz enthaltene Goto- 
Anweisung verwenden, wird vom Com¬ 
piler die Goto-Option auf (^$G-^ie) ge¬ 
stellt, also abgeschaltet. Die Verwendung 
von unbedingten Sprüngen ist normaler¬ 
weise in Pascal, das eine Vielzahl von 
Anweisungen kennt, die den Programm¬ 
fluß steuern, nicht nötig. Die Benutzung 
einer Goto-Anweisung zeugt von schlech¬ 
tem Programmierstil und wird manchmal 
von BASIC-Programmlerern benutzt, die 


mit der Pascal-Programmierung anfangen 
und noch nicht alle Anweisungen kennen 
oder eben einen Spaghetti-Code erzeu¬ 
gen wollen. 

In Ausnahmefällen mag es angebracht 
sein, ein Goto zu benutzen, um aus einer 
tief verschachtelten Struktur entfliehen zu 
können. In diesem Fall setzt man ein 
(*$G+^) in sein Programm, sonst erhält 
man Fehler 6 („Illegal Symbol“). 


6. I - Die I/O-Checking- und Include- 
File-Option 

Die I-Option wird in zwei Unteroptionen 
unterteilt. Die I/O-Checking-Option wird 
durch die Parameter -F/-, die Include-File- 
Option durch einen Filenamen erkannt. 

a) Nach jeder File-I/O-Operation, mit Aus¬ 
nahme der direkten Unit-I/O-Operationen 
wie UNITREAD und UNITWRITE, also 
nach jedem READ, WRITE, RESET, 
CLOSE, SEEK, GET, PUT etc., wird vom 
Compiler der Code $9E $00 (CSP lO- 
TEST) hinter die Operation gesetzt. Tritt 
bei einer I/O-Operatlon ein Fehler auf, so 
unterbricht der Interpreter den normalen 
Programmablauf und ruft die Exec-Error- 
Prozedur des Pascal-Systems auf, die ei¬ 
ne entsprechende Fehlermeldung ausgibt. 
Will man dies unterbinden, so kann man 
das Einschieben des Codes für das l/O- 
Checking verhindern, indem man (^$l-^) 
in sein Programm einfügt. Dann sollte man 
auftretende Fehler aber selbst abfangen, 
well sonst nicht vorhersehbare Dinge pas¬ 
sieren könnten (Schreiben auf einen un¬ 
geöffneten File usw.). Listing 2 zeigt eine 
Möglichkeit der Benutzung der I-Optlon. 

b) Wenn ein Programm so lange wird, daß 
der Text nicht mehr in einem File unterzu¬ 
bringen ist, muß man das Programm in 
mehrere Teile aufspalten. In einem Haupt¬ 
teil, den man dann übersetzen läßt, veran¬ 
laßt man den Compiler, einen anderen 
Textfile zu übersetzen, bevor er im Haupt¬ 
file weitermachen soll. Man erreicht dies 
durch die Angabe von (^$IFIIename^), 
wobei „Fiiename“ der Name des Flies ist, 
welcheran dieser Stelle eingeschoben wer¬ 
den soll. Beispiel: 

Program Test; 

(*$l DECL.TEXT*) 

(*$l PROCS1.TEXT*) 

(*$l PROCS2.TEXT*) 

begin 

end. 

Das Suffix „.TEXT“ Ist nicht nötig, der 
Compiler hängt es automatisch an. Ver¬ 
schachtelte Include-Files sind nicht mög¬ 
lich. Ebenso ist es nicht möglich, Include- 
Files im Interface-Teil einer Unitzu erklären. 
Dies Hegt daran, daß der Interface-Teil 
blockweise in den Codefile kopiert wird. 
Eine Unterbrechung durch einen Include- 
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File mitten im Block erzeugt deswegen den 
fatalen Fehler406(Jnclude File not legal“). 
Wenn man Include-Flles benutzt, sollte man 
auch auf ein anderes Phänomen achten. 
Jedesmal, wenn ein File geöffnet wird, also 
auch bei der I-Option, muf3 das Directoryder 
entsprechenden Diskette eingelesen wer¬ 
den. Dieses benötigt knapp zwei K und wird 
immer auf den Heap eingelesen. Hat der 
Compilernurnoch etwa 1000 Wörter Platz in 
der Symboltabelle, so steigt er mit einem 
unrühmlichen „Stack Overflow“ aus. Um 
dies zu verhindern, sollte man auf der 
Diskette, die den Compiler enthält, einen File 
„machen“ (I\/I(ake vom Filer aus), der den 
Namen SYSTEM.SWAPDISK hat und vier 
Blöcke lang sein sollte. Wird dann der 
Include-File geöffnet, wird zuerst ein Teil 
des Heaps aut diesen File geschrieben, 
bevor das Directory eingelesen wird. Dies 
übernimmt, nichtwieim Handbuch angege¬ 
ben, der Compiler, sondern geschieht in der 
Prozedur Fopen (entspricht Reset) im SY¬ 
STEM.PASCAL. Nach dem Öffnen des 
Files wird der Heap wieder auf den ur¬ 
sprünglichen Zustand gebracht, indem des¬ 
sen Inhalt wieder aus dem File SYSTEM. 
SWAPDISK eingelesen wird. 


7. L - Die List-Option 

Um ein ausführliches Listing eines Pro- 
grammszu erzeugen, welches vorallemzur 
Fehlersuche benutzt werden kann, muß 
man die L-Option benutzen, die wie die I- 
Option zwei verschiedene Arten von Para¬ 
metern kennt. 

a) (4|^$L-f^) erzeugt einen Listing-FIle mit 
dem Namen „^SYSTEM.LST.TEXT“. 
(*$L-*) schaltet die Ausgabe eines Li- 
stings aus, ein nachfolgendes (^ie$L+^) 
wieder ein. 

b) (^$L Filename^i^) erzeugt einen Listing- 
File mit dem Namen „Filename“, Ein 
Beispiel wäre (*$L LIST.TEXT^). Das 
„.TEXT“ braucht nicht angehängt zu wer¬ 
den, dies übernimmt der Compiler. Auch 
hier kann man mit (*$L-sit) die Ausgabe 
wieder abschalten, durch ein darauffolgen¬ 
des (^it$L-H^i^) auch wieder einschalten. 
Das Listing geht dann wieder auf den zuerst 
angegeben Namen „Filename“. Esgibtnur 
einen Listing-File pro Übersetzungslauf. 
Der Filename kann auch ein Gerät sein, wie 
z.B. PRINTER:, so daß ein (*$L PRIN- 
TER:^ft) ein Listing auf den Drucker ausgibt, 
ein (*$L CONSOLE:^) ein Listing auf den 
Bildschirm. 

Das Listing hatverschiedeneSpalten. Inder 
ersten steht die Zeilennummer, dann die 
Segment-Nummer, die Prozedur-Nummer 
(vor dem Doppelpunkt bzw. dem „*“), die 
Befehlsverschachtelungstiefe (hinter dem 
Doppelpunkt bzw. dem „^“) und schließ¬ 
lich der Wort- oder Byte-Offset innerhalb 
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der Prozedur und der Quelltext. Erscheint 
anstelle der Verschachtelungstiefe ein „ D “, 
so gibt der Wort-Offset die Stelle des Spei¬ 
cherplatzes der Variablen an (relativ zum 
Markstack), ansonsten gibt der Byte-Offset 
das Codebyte des Befehls innerhalb einer 
Prozedur an. Mit diesen Werten kann ein 
Laufzeit-Fehler sicher gefunden werden. 
Ein Beispiel ist in Listing 3 gegeben. 


8. N - Die Noioad-Option 

Normalerweise werden Units, die von ei¬ 
nem Programm benutzt werden, nach dem 
Starten des Programms sofort geladen und 
bleiben im Speicher, bis das Programm 
beendet ist. Um dies aus Speicherplatz¬ 
gründen zu verhindern, muß man ein 
(¥$N-i-¥) direkt hinter das „begin“ einer 
Prozedur oder des Programms gestellt wer¬ 
den. Dann werden Units wie Segment- 
Prozeduren behandelt, d.h. sie werden aus- 
gelagert und erst dann geladen, wenn eine 
Prozedur dieser Unit aufgerufen wird. 


9. NS - Die Next-Segment-Option 

Die Segment-Nummer des Hauptpro¬ 
gramms ist 1, der ersten Segment-Proze¬ 
dur oder der ersten normalen (Nicht-Intrin- 
sic-)Unit ist 7. Weitere Segment-Nummern 
werden vom Compiler in aufsteigender Rei¬ 
henfolge vergeben, d.h. nach 7 kommt 8 
usw. bis 31 (Pascal 1.1) bzw. 63 (Pascal 
1.2). Nehmen wir an, ein Programm habe 10 
Segment-Prozeduren, nämlich von 7 bis 
16. Außerdem benutze es eine tntrinsic- 
Unit mit der Segment-Nummer 16. Dies ist 
nicht möglich, da Segment-Nummern nicht 
doppelt verkommen dürfen. Die Lösung 
besteht darin, vor der letzten Segment- 
Prozedur die NS-Option einzusetzen: 
(*$NS 17*) 

Segment procedure SegProc; 

Die Segment-Prozedur bekommt dann die 
Nummer 17, der Konflikt wird vermieden. 


10. P - Die Page-Option 

Wiil man einen Seitenvorschub auf seinen 
Listing-File angeben, so schreibt man die 
parameterlose Option (*$P*) in den Pro¬ 
grammtext. Diese Zeile erscheint dann als 
erste auf der neuen Seite. 


11. Q- Die Quiet-Compile-Option 

Wird mit (*$Q-f*) die Q-Option einge¬ 
schaltet, so werden verschiedene Com¬ 
piler-Meldungen unterdrückt. Dazu gehö¬ 
ren die Zeilennummern mit den Punkten 
und die Namen der Prozeduren. Tritt ein 
Fehler auf, so wird nicht die Zeile „<sp> 


to continue...“ ausgegeben. Diese Option 
wird gern in Verbindung mit einem Listing- 
File auf den Bildschirm in Verbindung ge¬ 
bracht, also (*$Q-h,L CONSOLE:*), weil 
dann die sonstigen Meldungen des Com¬ 
pilers nicht die Ausgabe des Listing-Files 
stören. Man bekommt also ein übersicht¬ 
licheres Bild. Allerdings stoppt der Compi¬ 
ler nicht mehr bei einem Fehler, wenn bei 
eingeschalteter Q-Option ein Listing-File 
ausgegeben wird. Eine Ausnahme bilden 
die Fehler über 400, die als fatal angese¬ 
hen werden. Beim Auftreten eines solchen 
Fehlers stoppt der Compiler immer die 
Übersetzung. 


12. R - Die Range-Check-und 
Resident-Option 

Wie die I-Option zerfällt auch die R-Option 
in zwei verschiedene Unteroptionen. 

a) Normalerweise erzeugt der Compiler 
nach jedem Array- und String-Zugriff so¬ 
wie nach Zuweisungen an Variablen eines 
Unterbereichs Code, der zur Laufzeit die 
Gültigkeit von Array- und String-Indizes 
bzw. den Wert eines Ausdrucks überprüft, 
der an eine Subset-Variable zugewiesen 
werden soll. Dieser Code kostet relativ viel 
Speicherplatz, macht aber das Programm 
vor unliebsamen Überraschungen sicher. 
Im Grunde kann man ja nie sicher sein, 
daß man nicht doch einmal auf das 101. 
Element eines 1 . . . 100-Arrays zugreift, 
dennoch kann es angebracht sein, das 
Range-Checking mit einem (*$R-*) 
auszuschalten. Ein Beispiel dafür sei fol¬ 
gende Aufgabe: Man erstelle eine String- 
Variable, die 132 „ = “-Zeichen-etwazum 
Unterstreichen-beinhaltet. Die Lösung ist 
in Listing 4 dargestellt. 

b) Die R-Option ist in den Handbüchern 
nicht vollständig erklärt. Diese Option ist 
wichtig für das Memory-Management zur 
Laufzeit. Damit kann man Programme er¬ 
zeugen, die sich selbst ein- und ausla¬ 
gern, wie es auch der Compiler bei der S- 
Option tut. 

Es geht wieder einmal um Segmente. Ein 
Segment ist z.B. das Hauptprogramm, alle 
seine Segment-Prozeduren, normale 
Units und Intrinsic-Units, die vom Haupt¬ 
programm benutzt werden. Jedes Seg¬ 
ment hat seine eigene Segment-Nummer, 
das Hauptprogramm die Nummer 1, Seg¬ 
ment-Prozeduren meistens ab 7 aufwärts 
usw. Alle Segmente können ausgelagert 
werden, d.h. der Code eines Segments 
wird nur geladen, wenn dieses Segment 
aufgerufen wird. Während Units grund¬ 
sätzlich bei Beginn des Programms gela¬ 
den werden, sind Segment-Prozeduren 
immer ausgeiagert. Das Einlagern der 
Units kann aber auch, wie schon oben 
erwähnt, durch die N-Option verhindert 
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werden. Angenommen, es sind jetzt alle 
Segmente ausgeiagert: Dann kann mit der 
R-Option entschieden werden, welche 
Segmente eingelagert werden sollen. Dies 
kann auch in Abhängigkeit von vorhande¬ 
nem Speicherplatz geschehen, wenn man 
geschickt programmiert. Auch der Com¬ 
piler schickt sich selbst in den Swapping- 
Modus, wenn er weniger als 19900 Bytes 
freien Speicher vorfindet. 

Um das Einlagern eines Segments zu er¬ 
zwingen, stellt man ein (^i^$RSegment- 
Name^) an den Anfang des Rumpfes der 
Prozedur, die dieses Segment einlagern 
soll. Nach Ablauf der Prozedur wird dieses 
Segment wieder ausgelagert. Ein ausführ¬ 
liches Beispiel ist in Listing 5 gegeben. 
Was nicht in den Handbüchern steht, ist 
eine andere Möglichkeit der Syntax der R- 
Option. Man muß nämlich nicht unbedingt 
den Segment-Namen angeben, es reicht 
schon die Segment-Nummer, also (^$R 
7^), was völlig neue Möglichkeiten eröff¬ 
net. Nun können auch Segmente, deren 
Namen nicht bekannt sind, z.B. Segment- 
Prozeduren in Prozeduren von der äußer¬ 
sten Ebene eingelagert werden, und dies 
kann man dann natürlich auch mit Be¬ 
triebssystem-Segmenten tun. 

Ein Beispiel; Ein Programm soll mit Files 
arbeiten und unabhängig von der vom Sy¬ 
stem ein- oder ausgeschalteten S(wap- 
ping-Option (Kommando-Ebene) arbeiten. 
Wie man weiß, muß bei eingeschalteter 
S(wapping-Option die Boot-Diskette im¬ 
mer im Boot-Laufwerk stecken, damit SY¬ 
STEM.PASCAL immer online ist. Das liegt 
daran, daß beim Einschalten des S(wap- 
ping Teile dieses SYSTEM.PASCAL aus¬ 
gelagert werden. Es ist dies das Segment 
#6 (FILEPROCS) und bei Pascal 1.2 
eventuell noch das Segment #2 (FlO- 
PRIMS), da dort ein S(wapping der zwei¬ 
ten Stufe eingeschaltet werden kann. Da 
einem Programm nicht die Bezeichner der 
beiden Segmente bekannt sein können 
(außer, wenn man es als System-Pro¬ 
gramm übersetzen läßt), kann es nicht ei¬ 
ne Option (*$R FILEPROCS^) anwen¬ 
den, wohl aber eine Option (*$R 6^t^). 
Das Programm könnte also so aussehen 
wie in Listing 6. Wenn ein Segment, das 
bereits im Speicher ist, mit der R-Option 
noch einmal eingelagert wird, so macht 
das nichts aus, das System erkennt dies 
und lädt nicht noch einmal nach. Will man 
mehrere Segmente einlagern, kann man 
deren Namen oder Nummern durch Kom¬ 
mata trennen, also z. B. (^$R 2, 6^). 


13. S - Die Swapping-Option 

Wenn Programme mit vielen Deklaratio¬ 
nen oder Units übersetzt werden sollen, 


dann wird der Speicherplatz für die Sym¬ 
boltabelle des Compilers knapp. Um dies 
zu verhindern, kann man den Compiler 
dazu veranlassen, Teile seiner Segmente 
auf Diskette auszulagern und bei Bedarf 
nachzuladen. Schaltet man mit (^$S-H^it), 
das am Anfang des Programms oder der 
Unit stehen muß, den Swapping-Modus 
des Compilers ein, so werden nicht alle 
der 15 Segmente des Compilers bei des¬ 
sen Start eingelagert. Beim Einschalten 
von (^$S-k-F^) wird sogar noch weniger 
eingelagert. Wieviel Platz damit im einzel¬ 
nen gespart wird, hängt von der Version 
des Compilers ab. Aufschluß darüber gibt 
die folgende Tabelle: 

(^!«-S+-1-^le) 

Pascal 1.1 5285 6743 words 

Pascal 1.2 5311 6765 words 

Eingelagert werden ohne Swapping die 
Segmente DECLARATIONPART, BODY- 
PART, NUMSTRING, STATEMENT, 
CASESTATEMENT, FORSTATEMENT, 
BODY1, BODY3 und ROUTINE. Bei einfa¬ 
chem Swapping werden nur noch ROUTI¬ 
NE und STATEMENT eingelagert, bei 
Doppel-Swapping keine der Segmente. 
Bei der 128K-Version von Pascal 1.2 muß 
der Swapping-Zustand nie eingeschaltet 
werden, da damit kein weiterer Platz für 
die Symboltabelle freigegeben werden 
kann. Man hat dort ohnehin knapp 40K für 
die Symboltabelle zur Verfügung. 


14. T - Die Tiny-Pascal-Option 

Um weiteren Speicherplatz für die Sym¬ 
boltabelle während des Übersetzens ein¬ 
zusparen, wurde die T-Option eingeführt. 
Der Compiler, der selbst aus knapp 10000 
Zeilen Pascal-Quelltext besteht, konnte 
auf den kleinen Maschinen von früher 
kaum übersetzt werden. Da der Compiler 
aber nicht alle Standardprozeduren be¬ 
nutzt, braucht er auch nicht alle zu kennen. 
Setzt man (^$T-k*) an den Anfang eines 
Programms, so werden verschiedene Pro¬ 
zeduren gar nicht erst vom Compiler initia¬ 
lisiert, d.h. sie sind dann nicht bekannt. 
Tiny-Pascal ist sozusagen eine Untermen¬ 
ge von Pascal. Zu den nicht bekannten 
Prozeduren gehören: READLN, PRED, 
SQR, UNITREAD, INSERT, DELETE, CO- 
PY, POS, SEEK, GET, PUT, PAGE, STR, 
GOTOXY, UNITSTATUS. Ohne diese Pro¬ 
zeduren hat man weitere 165 Worte mehr 
Platz für die Symboltabelle. 


15. U - Die User-Program- und Use- 
Library-Option 

Auch diese Option zerfällt in zwei gänzlich 
verschiedene Unteroptionen. 


a) Die Erklärung der User-Program-Option 
im Handbuch ist sehr unbefriedigend. Dort 
steht, man solle die Option nicht benutzen, 
wenn man nicht weiß, wie sie genau funk¬ 
tioniert. Doch schweigt sich das Handbuch 
über deren Anwendung aus. 

Für die Erklärung dieser Option muß man 
etwas weiter ausholen. Jedes Programm 
wird in sog. Segmente zerlegt. Das Haupt¬ 
programm hat immer die Segment-Num¬ 
mer 1. Das System benutzt die Nummern 
0 und 2 bis 6. Mit „dem System“ ist das 
Programm im File SYSTEM.PASCAL ge¬ 
meint, das beim Booten nach dem Einla¬ 
den des Interpreters im File SYSTEM.- 
APPLE geladen wird. Dieses System ist in 
Pascal geschrieben und hat die Segment- 
Nummer 0. Da es relativ groß ist, wurde es 
noch einmal aufgeteilt und belegt noch die 
Segment-Nummern 2 bis 6. Die Segment- 
Nummer 1 heißt USERPROGRAM und ist 
eigentlich das normale Hauptprogramm. 
Nur einmal nach dem Booten kann dieses 
USERPROGRAM aufgerufen werden, 
wenn man sofort den Befehl U(ser restart 
gibt. Sonst wird beim Ausführen eines 
normalen Programms immer die Seg¬ 
ment-Tabelle des Interpreters gefüllt, so 
daß ein normales User-Programm immer 
in Segment 1 der Segment-Tabelle gela¬ 
den wird. Das SYSTEM.PASCAL selbst 
und alle anderen System-Programme wur¬ 
den aber mit einem (^$U-^if) vor dem 
Programmkopf übersetzt. Dies zwingt den 
Compiler, nicht mit der Segment-Nummer 
1 anzufangen, sondern mit der Segment- 
Nummer 0! Dadurch ist es möglich, ein 
eigenes Pascal-System (SYSTEM.PAS¬ 
CAL) zu schreiben, oder Programme zu 
schreiben, die auf Systemvariablen zu¬ 
greifen. In Listing 7 ist das Gerippe des 
Files SYSTEM.PASCAL dargestellt, das 
mit (^i^$U-*) übersetzt werden muß (sie¬ 
he auch Apple Pascal Operating System 
Reference Manual, Seite 263 ff.). Zu be¬ 
achten ist dabei folgendes: Die erste Va¬ 
riable im Pascal-System muß ein Zeiger 
auf den sog. Syscomrec (System Commu- 
nication Area Record) sein, der vom Inter¬ 
preter beim Booten automatisch gesetzt 
wird. Die erste Nicht-Segment-Prozedur 
muß die Exec-Error-Prozedur sein, die 
vom Interpreter angesprungen wird, wenn 
ein Laufzeitfehler auftritt (siehe Apple Pas¬ 
cal Operating System Reference Manual, 
Seite 226 ff.). 

Listing 8 gibt ein Beispiel eines eigenen 
winzig kleinen Pascal-Systems. Es dürfen 
nur Standardprozeduren benutzt werden, 
also kein READ, READLN etc., denn diese 
müssen erst im SYSTEM.PASCAL defi¬ 
niert werden. Der Compiler übersetzt sol¬ 
che Prozeduren als CXP 0,n (Call eXternal 
Procedure Segment 0, Procedure n), der 
Compiler und das SYSTEM.PASCAL zte- 
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hen sich sozusagen gegenseitig hoch. Um 
das Listing 8 zum Laufen zu bringen, muß 
der erzeugte Codefile in SYSTEM.PAS¬ 
CAL umbenannt werden und dann frisch 
gebootet werden. Nach Ablauf des Haupt¬ 
programms des Pascal-Systems wird im¬ 
mer ein Kaltstart ausgeführt (P-Code-Be~ 
fehl XIT am Ende des Programms). 

Wenn man mit (^it$U-^) arbeitet, werden 
zusätzlich folgende Optionen gesetzt: 
(^$R-,I-,G + ,V-^). Außerdem ist es er¬ 
laubt, nicht aufgelöste Forward-Referen¬ 
zen zu benutzen. Die Units LONGINTIO 
(Long Integer I/O) und PASCALIO (Real 1/ 
0) werden beim Benutzen von Long Inte- 
gers und Reals nicht automatisch eingela¬ 
gert. Will man also in einem System-Pro¬ 
gramm Long Integers oder Real I/O benut¬ 
zen, so muß man diese Segmente selbst 
mit Hilfe der R-Option für resident erklä¬ 
ren. Durch (^$U-^) Ist es außerdem 
möglich, Zeiger auf Files zu definieren, 
was sonst nicht erlaubt ist, also ein Kon¬ 
strukt type Fllep = ttext. Variablen vom 
Typ Filep werden natürlich nicht wie ge¬ 
wöhnliche Files initialisiert. Man sollte mit 
solchen Zeigervariablen also nur auf 
schon initialisierte Files zugreifen, wie IN¬ 
PUT, OUTPUT oder die Workfiles. 

Eine weitere Möglichkeit der Benutzung 
der U-Option Ist das Zugreifen auf Sy¬ 
stemvariablen. Listing 9 zeigt, wie man 
von einem normalen Programm auf Sy¬ 
stemvariablen zugreift. Dieses Programm 
simuliert die Umgebung des Pascal-Sy¬ 
stems, läuft aber als normales User-Pro¬ 
gramm ab, das nach dem Übersetzen 
durch R(un bzw. X(ecute gestartet werden 
kann. Es gibt das Systemdatum aus, das 
im Filer mit dem D(ate-Kommando gesetzt 
werden kann. 

Ähnlich kann man auch Units schreiben, 
die auf Systemvariablen zugreifen, ohne 
daß man dies von außen merkt. Die Unit 
CHAINSTUFF ist ein solches Beispiel. In 
diesem Fall muß man die Unit in eine 
Programm-Umgebung einbetten und das 
ganze mit (^$U-^) übersetzen lassen. 
Nur durch die U-Option ist es möglich, 
zuerst Variablen zu definieren und dann 
die Unit. Eine Unit, die auf das Systemda¬ 
tum zugreift, ist in Listing 10 gezeigt. Das 
„Daterec“ ist dort deswegen im Interface- 
Teil nochmals definiert, damit es durch ein 
Uses in ein Programm übernommen wer¬ 
den kann. 

b) Sollen Units benutzt werden, die sich 
nicht in der SYSTEM.LIBRARY befinden, 
so muß dies mit der U-Option dem Com¬ 
piler bekannt gemacht werden. Dazu pla¬ 
ziert man ein (^it$UFilename^) vor die 
Units in der Uses-Liste, also z.B. 
uses (*$U #5:TURTLE.LIBRARY*) 
TurtleGraphics, TurtlelO, TurtleReallO; 

Der Compiler sucht dann auf der Diskette 
in Laufwerk #5: nach dem File TURTLE.- 


LIBRARY und lädt von dort die Interface- 
Texte der Units TurtleGraphics, TurtlelO 
und TurtleReallO. Danach können keine 
Units mehr benutzt werden, die sich in der 
SYSTEM.LIBRARY befinden, es sei denn 
man gibt dann wieder ein explizites (^$U 
SYSTEM.LIBRARY*) an. 


16. V - Die Var-Parameter-Option 

Wenn der formale Parameter einer Proze¬ 
dur ein String ist und die Prozedur mit 
einem aktuellen Parameter aufgerufen 
wird, dessen String-Länge kleiner als die 
des formalen Parameters ist, tritt der Feh¬ 
ler 175 („Actual Parameter max string 
length < var formal max length“) auf. Bei¬ 
spiel: 

program Test; 
var S: string [10]; 
procedureX (varT: string); 
begin 

fillchar (T, size_of (T), ’ ’) 
end; 
begin 

S := ’ABC’; 

X(S) (* Fehler 175 *) 
end. 

Warum der Fehler auftreten muß, ist klar, 
ln der Prozedur X werden Insgesamt 82 
Bytes des Strings T mit einem Leerzei¬ 
chen gefüllt. Der Parameter S, der die 
Stelle von T beim Aufruf X (S) übernimmt, 
ist aber nicht 82 Bytes, sondern nur 12 
Bytes groß. Würde kein Fehler auftreten, 
würden einige Speicherzellen mit dem 
Wert 32 (ASCII SP) gefüllt, die adressen¬ 
mäßig hinter dem String S liegen. Dies ist 
sicher nicht im Sinne des Programmierers. 
Trotzdem kann man dies erreichen, wenn 
man (*$V-*) in seinem Programm ein¬ 
fügt. Dann wird das Auftreten des Fehlers 
175 unterdrückt. In dem oben genannten 
Beispiel würde man allerdings Undefinierte 
Speicherzellen löschen. In anderen Fällen 
könnte aber die V-Option zum Vorteil ein¬ 
gesetzt werden. Wenn man in der Proze¬ 
dur X z.B. über die Länge des Strings 
geht, die ja die definierte Länge nie über¬ 
schreiten kann, also z.B. 
procedure X (var T: String); 
begin 

fillchar (T (1), length (T), ’ ’) 
end; 

Die Länge von T muß allerdings vorher 
bekannt sein. Im obigen Beispiel Ist sie 3, 
da eine Zuweisung S := ’ABC’ stattgefun¬ 
den hat. 

Weitere Compiler-Optionen sind in Pascal 
1.1 und 1.2 nicht definiert. Im nächsten 
Teil wollen wir uns mit der Möglichkeit 
befassen, von Maschinensprache aus in 
Pascal Ein- und Angabeoperationen durch¬ 
zuführen. 


ProDOS-Editor 1.0 

Applesoft-Editor 

unter ProDOS-Betriebssystem 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1024-X 

Mit diesem neuen Editor - übrigens 
der bislang einzige deutsche Pro¬ 
DOS-Editor - wird dem Applesoft- 
Programmlerer ein Werkzeug zur ef¬ 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle¬ 
samt unter ProDOS nicht mehr lauf- 
fähig. 

Unter anderem 'sind folgende Fea¬ 
tures implementiert worden: 

- Zeilenorientierter Editor mit jedem er¬ 
denklichen Redigierkomfort (Insert. 
Delete, Tab, Restore, freie Cursorbe¬ 
wegung in allen vier Richtungen. Einga¬ 
be von CtrI-Buchstaben in Applesoft- 
Zeilen usw.) 

- Renumber (Zeilen-Umnumerierung) 

- Xreference (sortierte Variablenliste) 

- Suchen von Tokens, Strings und Varia¬ 
blen 

- dezimale und hexadezimale Umrech¬ 
nungen 

- Ausführung von Monitorbefehlen aus 
dem Editor heraus 

- Listen des Applesoft-Programms in 
speicherinterner Form als Flex-Dump 

- Suchen von Hex-Folgen, Adressen 
oder Speicherstellen im gesamten 
RAM-Bereich einschließlich der 
Language-Card 

- frei definierbare Tastatur-Macrobefehle 

Der Applesoft-Editor Hegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor¬ 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 

Gerätevoraussetzung: Apple ll-k, Ile 
oder llc, 40 Zeichen/Zeile 

Hüthig Software Service, 

Postfach 10 28 69, 

D-6900 Heidelberg 
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Alle Optionen auf einen Blick 

Die mit gekenzeichneten Optionen sind die vom Compiler 

initialisierten Werte (Default values). Ara Anfang einer 
Übersetzung hat der Compiler also folgende Optionen gesetzt: 

(*$D-,E-,F-,G-,1+,L-,N-,Q-,R+,S-.T-,U+,V+*) 

C <Text> 

Der String <Text> wird in Block 0 des Codefiles 
gespeichert. 

D+ 

Schaltet die Erzeugung von Breakpoints ein. 

*D 

Schaltet die Erzeugung von Breakpoints ab., 

EH- 

Erlaubt private Files in Units. 

*E- 

Verbietet private Files in Units. 

F+ 

Schaltet die Byte-Flipped-Machine ein (High 
vor Low), 

*F- 

Schaltet die Byte-Flipped-Machine aus (Low 
vor High). 

G+ 

Erlaubt Goto-Befehle, 

*G- 

Verbietet Goto-Befehle. 

*1-1- 

Der Compiler erzeugt Code für I/O-Checking. 

I- 

Der Compiler erzeugt keinen Code für I/O- 
Checking. 

I<Ftlename> 

Fügt bei der Übersetzung den Quellcode 
<Fllename> ein. 

L-H 

Ein Listing-File mit Namen SYSTEM LST.TEXT 
wird erzeugt. 

■#L— 

Kein Listing-File wird erzeugt. 

L<Filenarae> 

Ein Listing-File mit Namen <Filename> wird 
erzeugt. 

N+ 

Alle benutzten Units werden ausgelagert. 

*N- 

Die benutzten Units werden nach dem Starten 
sofort geladen. 

NS <Nummer> 

Das nächste zu erzeugende Segment hat die 

Nummer <Nummer>. 

P 

Ein Seitenvorschub wird im Compilerlisting 
erzeugt. 

Q+ 

Gewisse Bildschirmmeldungen werden unterdrückt. 

*Q- 

Prozedur-Namen und Zeilennummern werden 
ausgegeben, 

*R+ 

Der Compiler erzeugt Range-Checking-Code. 

R- 

Der Compiler erzeugt keinen Range-Checking- 
Code . 

R<Filename> 

Lädt ein Segment mit Namen <Filename>. 

R<Nummer> 

Lädt ein Segment mit Segment-Nummer <Nummer>. 

S+ 

Der Compiler lagert einige seiner Segmente aus. 

S-H- 

Der Compiler lagert noch mehr Segmente aus. 

*S- 

Fast alle Segmente des Compilers werden 
eingelagert. 

T-l- 

Tiny-Pascal-Übersetzung. 

*T 

Normale Pascal-Übersetzung. 


Es werdem User-Programme übersetzt. 

U- 

Es werden System-Programme übersetzt. 

U<Filename> 

Die folgenden Units werden in der Library 
<Filename> gesucht. 

*V+ 

Checking für VAR-Parameter von Strings wird 
eingeschaltet. 

V- 

Kein Checking für VAR-Parameter von Strings. 

Demoprogramme 

(Listing 1) 


{$S-I-,E-I-} 
unit Private; 

intrinsic Code 23 data 24; 

Interface 


procedure Dummy; 

Implementation 

var F : file; 

{Ohne E-l- nicht moeglich} 

procedure Dummy; 

var G : file; 

{Ohne E-f nicht moeglich} 


begin {Dummy} 

reset (G, 'Dummy'); 
dose (G, normal); {close notwendig} 
end; {Dummy} 

begin {Private} 

rewrite (F, 'Dummy'); 
close (F, lock) {close notwendig} 
end {Private}, 

{~. .. .. 

(Listing 2) 

program I_Test; 

var 10 : integer; 

F : file; 

S : String; 

begin 

write ('Name: '); 
readln (S); 

{$!-} {Kein I/O-Checking} 

reset (F, S); 

if lOresult <> 0 then {File nicht da,} 
begin {vielleicht mit Suffix} 

insert ('.TEXT', S, length (S) + 1); 
reset (F, S) 

{$!+} {wieder einschalten} 

end: {if} 

10 := lOresult; 
write ('Textfile ', S); 
if 10 <> 0 then write (' nicht'); 
writeln (' gefunden.'); 
close (F) 
end. 



(üsting 3) 

{$Q+,L CONSOLE:} 
program L_Test; 

var I ; 0,.9; 

begin 

writeln ('Gleich kommt ein Fehler'); 

I := 10;{Value Range Error Stl P#1 I#48 (48 zw. 45 und 51)} 
writeln ('Hier komme ich nicht mehr hin') 
end. 

[ - -- --- --—---} 

(LIstIng 4) 

program R_Test; 


const Leng = 132; 


var S ; string [Leng]; 



begin 



fillchar (S [1], Leng, '='); 
{$R-} 

S [0] := ehr (Leng); 

{$R+} 

unitwrite (1, S [1], 80); 

{80 ' 

=' auf Bildschirm) 

{unltwrite (6, S [1], 132)} 

{132 

'=' auf Drucker} 


end. 


1 -----—_} 

(Listing 5) 

program R_Test; 

uses TurtleGraphics; 

var C ; char; 

Segment procedure Init; 

{Initialisierungen} 

begin {Init} 

InitTurtle 
end; {Init} 

Segment procedure Dolt; 
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{Irgendwelche Aktionen} 
var I : integer; 
begin {Dolt} 

{$R TURTLEGRAPHICS} {sonst wird 41mal TurtleGraphics geladen} 
MoveTo (0, 100); 
for I := 1 to 40 do WChar {'XM 
end; {Dolt} 

procedure Main; 

{Hauptprogramm} 

begin {Main} 

Init; 

Dolt; 

TextMode; 

writeln (memavail, ' words') 
end; (Main} 

procedure Swapln; 

{Alle aufgezaehlten Prozeduren werden eingelagert} 
begin {Swapln} 

{$R TURTLEGRAPHICS} {Alles einlagern} 

{$R INIT} 

{$R DOIT} 

Main 

end; {Swapln} 
begin {R_Test} 

{$N+) {Alles auslagern} 

write ('Einlagern (j/n)? '); 
read (C); 
writeln; 

if C in ['N', 'n'] 
then Main 
eise Swapln 
end {R_Test}. 

(Listing 6) 

program R_Test; 

{Vor dem Ausfuehren dieses Programms bitte} 

{S(wapping von der Kommandoebene einschalten,} 

var F ; file; 

begin 

{$R 2, 6} {Hier Boot-Diskette noch in Boot-Laufwerk) 
writeln ('Bitte Boot-Diskette herausnehmen'); 
writeln ('und andere Pascal-Diskette einschieben!'); 
write ('Dann <return> druecken!'); 
readln; 

rewrite (F, '+4:XXX'); {Ohne die R-Option wuerde...] 
dose (F) {»..das Programm an dieser...} 

end- {...Stelle abstuerzen.} 

{ - } 

{Listing 7) 

{$U-} 

program Pascalsystem; 

{Rumpf SYSTEM.PASCAL Version 1.1, vgl. Apple Pascal 
Operating System Reference Manual, Seite 263 ff.} 

type Syscomrec = record 

lOrslt ; integer; 

XeqErr : integer; 

SysUnit : integer; 

{usw- siehe Apple Pascal 
Operating System Reference 
Manual, Seite 225 ff.} 
end; {Syscomrec} 

Fibp = tFib; 

Fib = file; {normalerweise record...} 

var Syscom : tSyscomrec; 

{usw.} 

Segment procedure Userprogram (Input, output : Fibp); 

{Ein normales Programm ist also nur eine Prozedur 
im Pascalsystem, deren Segmente in GetCmd in die 
Segment-Tabelle im Syscomrec gefuellt werden.} 


begin (Userprogram} 
end; {Userprogram} 

Segment procedure Debugger; 

{Nicht implementiert in Pascal 1.1, 
ln Pascal 1.2 FIOPRIMS] 

begin {Debugger} 
end: {Debugger} 

Segment procedure PrintError (XeqErr, lOrslt : integer); 

(Fehlermeldungen wie "Value Range Error" etc.} 

begin {PrintError} 
end; {PrintError} 

Segment procedure Initialize; 

{I(nltialize von Kommando-Ebene} 

begin {Initialize} 
end; {Initialize} 

Segment function GetCmd (LastSt : integer) : integer; 

{Kommandozeile etc.) 

begin {GetCmd} 
end; {GetCmd} 

Segment procedure FileProcs {6 Parameter...}; 

(Segment zum Auslagern bei S(wapping von der 
Kommando-Ebene (reset, rewrite, dose etc.)} 

begin {FileProcs} 
end; {FileProcs} 

procedure ExecError; 

{Muss Segment #0, Prozedur 42 sein) 

begin {ExecError} 
end; {ExecError} 

begin {Pascalsystem} 

Initialize; 

{usw.} 

end {Pascalsystem}. 

(•---—-—-) 

(Listing 8) 

{$U-} 

program Pascalsystem; 

{Ein eigenes kleines Pascalsystem Ein wesentlich 
groesseres muesste gespalten werden, damit es auf 
die 16K-Karte passt,} 

type Fibp = |Fib; 

Fib = file; 

var Syscom : jinteger; 

FF : char; 

CR : char; 

procedure ExecError; 
forward; 

procedure Fwritestr (S : string); 
forward; 

procedure Freadln; 
forward; 

procedure ExecError; 

{Muss Segment #0, Prozedur #2 sein} 
begin {ExecError} 

Fwritestr ('Es ist ein Fehler aufgetreten!'); 

Freadln 

end; {ExecError} 

procedure Fwritestr {S : string}; 

{'Fwritestr' ersetzt writeln, welches der Compiler 
als Prozedur 19 adressieren wuerde, die hier 
nicht existiert,} 
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begin [Fwritestrj 

unitwrite (1, S [1], length (S)); 
unitwrite (1, CR, 1) 
end; {Fwritestr) 

procedure Freadln; 

('Freadln' ersetzt readln, welches der Compiler 
als Prozedur 21 adressieren wuerde, die hier 
nicht existiert.) 

var C : char; 

begin {Freadln} 

C := ehr (0); 
repeat 

unitread ( 2 , C, 1) 
until C = CR 
end; (Freadln) 

procedure Clearscreen; 

begin {Clearscreen} 
unitwrite (1, FF, 1) 
end; {Clearscreen} 

begin {Pasoalsystem} 

FF := ehr (12); 

CR ehr (13); 

Clearscreen; 

Fwritestr ('Dies ist ein eigenes Pascalsystem'); 

Fwritestr ('Bei Druecken von <return> wird ein'); 

Fwritestr ('Kaltstart durchgefuehrt,'); 

Freadln 

end {Pascalsystem}. 

{■---—-—} 

(Listing 9) 

{$U-} 

program Pascalsystem; 

type Daterec ^ packed record 

Month : 0..12; 

Day : 0..31; 

Year : 0..100 
end; {Daterec} 

Fibp = |Fib; 

Fib - file; 

var Fill ; array [1,,66] of integer; 

TheDate : Daterec; {Das 67. V/ort) 

Segment procedure Userprogram (input, output : Fibp); 

{Programm kann mit X(ecute oder R(un gestartet werden} 

begin {Userprogram} 

write ('Heute ist der '); 

with TheDate do write (Day, ', Month, '. 19', Year) 
end; {Userprogram} 

begin {Pascalsystem} 
end {Pascalsystem). 

{----) 

(Listing 10) 

{$U-} 

program Pascalsystem; 

type Daterec = packed record 

Month : 0..12; 

Day : 0..31; 

Year : 0.,100 
end; {Daterec} 

Fibp — |Fib; 

Fib = file; 

var Fill ; array [1..66] of integer; 

TheDate ; Daterec; {Das 67, Wort} 

{Units nach 'var' nur moeglich mit (*$U-*)) 

unit Date; intrinsic code 23; 

interface 


type Daterec ^ packed record 

Month : 0..12; 
Day : 0.,31; 
Year : 0 . . 100 
end; (Daterec) 


procedure GetDate (var D : Daterec); 
procedure SetDate (D : Daterec); 

Implementation 

procedure GetDate {var D ; Daterec); 

begin {GetDate} 

D := TheDate 
end; (GetDate) 

procedure SetDate (D ; Daterec); 

begin (SetDate) 

TheDate := D 
end; (SetDate) 

begin (Date) 
end; (Date) 

begin {Pascalsystem} 
end (Pascalsystem}. 



r 



a. Auflage 
in Vorbereitung 


Apple DOS 3.3 — 

Tips und Tricks 

von U. Stiehl 

3., überarb. Aufl. 1985, ca. 230 S., mit 
zahlreichen, ausführlich kommentierten 
Programmlistings, kart., ca. DM 28,- 
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Utilities von Beagle Brothers 


getestet von Franz-Josef Hüskens 

fm Peeker, Heft 6/85, Seite 77 
wurden bereits die beiden Pro¬ 
gramme DOUBLE TAKE und 
GPLE, die beide von der Firma 
Beagle Brothers angeboten wer¬ 
den, vorgestellt. 

In diesem Artikel sollen nun einige 
„ Programmsammlungen “ bzw. 
Programme der gleichen Firma 
vorgestellt werden. Diese Pro¬ 
gramme sind mehr oder weniger 
nützlich, zu einem sehr geringen 
Teil sogar total unnütz. Auf den 
Disketten befinden sich teilweise 
auch Spiele und Demonstrations¬ 
programme von anderen Disketten 
der Firma Beagle Brothers. Fast 
alle Programme sind listbar und 
können damit nicht nur vom Benut¬ 
zer eingesehen, sondern - falls 
gewünscht - auch geändert wer¬ 
den. Das Listen und spätere Analy¬ 
sieren einzelner Applesoft-Pro- 
gramme ist jedem, der selbst pro¬ 
grammiert und eine Diskette der 
Beagle Brothers besitzt, sehr zu 
empfehlen. Man sieht hier meist 
eine sehr „clevere“ Programmie¬ 
rung. Applesoft-Befehle werden in 
ungeahnter Weise ausgenutzt und 
bringen „Amateur"-Programmie- 
rer auf vollkommen neue Ideen. Da 
manche Programme sehr anspre¬ 
chende Menüs haben, erhält man 
auch dahingehend Tips für eigene 
Programme. 

Doch nun zu den einzelnen Dis¬ 
ketten und deren Inhalten: 


1. Utility City 

Diese DOS-3.3-Diskette enthält 
die folgenden 21 Utilities (die Rei¬ 
henfolge entspricht der im Hand¬ 
buch und ist keine Wertung): 

1) Filename Zap verändert jeden 
beliebigen File-Namen so, daß der 
Name im Catalog entweder un¬ 
sichtbar ist oder inverse, blinkende 
oder normale Zeichen in beliebiger 
Folge enthält, 

2) Command Zap ermöglicht die 
„Eingabe“ von unsichtbaren Be¬ 
fehlen oder REM-Kommandos in 
ein Applesoft-Programm. 

3) Line Search erlaubt das Auffin¬ 
den der Programmzeilen eines Ap- 
plesoft-Programms. Die Beschrei¬ 
bung zu diesem Programm bein¬ 
haltet auch eine kurze Abhandlung 
über die Organisation der Pro¬ 
grammspeicherung. 

4) Screenwriter; Mit dieser Utility 
können Bildschirm-Layouts, z.B. 
für Menüs entworfen werden. Es 


ist möglich, über die Tastatur in 
den drei Anzeige-Modi (INVERSE, 
FLASH, NORMAL) direkt Text in 
Groß- oder Kleinschreibung zu er¬ 
zeugen. Wörter oder ganze Text¬ 
blöcke können verschoben oder 
zentriert bzw. links- oder rechts¬ 
bündig formatiert werden. Fertige 
Layouts können bildschirmweise 
auf Diskette gespeichert oder von 
Diskette geladen werden. Die Aus¬ 
gabe über einen Drucker ist natür¬ 
lich auch möglich. 

5) Int Converter „übersetzt“ Inte- 
ger-BASIC-Programme in Ap- 
plesoft-Programme, allerdings oh¬ 
ne die Syntax zu korrigieren. Die 
Bedienungshinweise zu dem Pro¬ 
gramm enthalten jedoch eine Ge¬ 
genüberstellung der Integer- und 
Applesoft-Befehle, die noch „von 
Hand“ berichtigt werden müssen. 

6) Bfind ist ein EXEC-File, der die 
Startadresse und die Länge des 
zuletzt geladenen Binär-Files an¬ 
zeigt. 

7) Sortfile: Dieses Programm ist 
zum „Ausbau“ gedacht. Es gestat¬ 
tet das Sortieren und Speichern 
von eindimensionalen Feldern. 

8) Connect vereinigt zwei kleine 
Applesoft-Programme zu einem 
großen. 

9) Text Dump gibt den aktuellen 
Textbildschirminhalt auf dem Druk- 
ker aus. Das Programm arbeitet al¬ 
leine oder als Teil eines anderen 
Programms. 

10) Rem Zap ermöglicht die inver¬ 
se Anzeige von REM-Statements. 
Dazu wird allerdings noch das Pro¬ 
gramm Rem Find benötigt. Nach 
Eingabe von PR#0 oder Betätigen 
der RESET-Taste werden die in¬ 
versen Statements unsichtbar. 

11 ) Address Checker gestattet ei¬ 
ne „Expedition“ durch den Apple- 
Speicher. Ein vom Benutzer aus¬ 
gewählter Adreßbereich wird auf 
Unterschiede des Speicherinhalts 
zu zwei verschiedenen Zeitpunk¬ 
ten untersucht. Geänderte Inhalte 
werden invers angezeigt. 

12) Multi Cat gestattet die Ausga¬ 
be des Disketten-Catalogs in be¬ 
liebiger Spaltenzahl (3, 4, 5 Spal¬ 
ten usw.) und in beliebigem Sei¬ 
tenformat. 

13) Key Cat erlaubt die Auswahl 
der Programme einer Diskette mit 
einem Tastendruck. Die gewählten 
Programme werden automatisch 
gestartet. Zusätzlich zeigt das Pro¬ 
gramm den freien Speicherplatz 
einer Diskette an. 


14) Kill Cat: CtrI-C oder eine be¬ 
liebig wählbare Taste unterbricht 
einen langen Disketten-Catalog. 
Jeder andere Tastendruck startet 
die Catalog-Ausgabe erneut. 

15) Double Loader: Mit einem 
Textfile, der bei jeder Benutzung 
neu erstellt wird, kann ein Ap¬ 
plesoft-Programm durchgeführt 
werden, während ein anderes BA- 
SlC-Programm im Speicher ver¬ 
bleibt. 

16, 17) Run Counter und Run 
Dater: Beide Programme sollten 
einem eigenen Applesoft-Pro¬ 
gramm vorangestellt werden. Run 
Counter zählt die Anzahl der Pro¬ 
grammbenutzungen, zeigt sie an, 
vermerkt diese Zahl im Programm 
und speichert dieses dann auf Dis¬ 
kette. Run Dater arbeitet genauso 
mit der Ausnahme, daß nicht die 
Anzahl der Programmläufe gespei¬ 
chert wird, sondern das Datum der 
Benutzung. 

18) Chr$ Poker zeigt auf Wunsch 
die Speicheradresse jeder Bild¬ 
schirmzelle und den ASCII-Wert 
jedes eingegebenen Zeichens an. 

19) Bigliner gestattet das Nume¬ 
rieren einzelner Programmzeilen 
eines Applesoft-Programms mit 
der Zeilenzahl 65535. 

20) Hex, Dec & Dex ermöglicht 
Zahlenkonvertierung von dezimal 
in hexadezimal und umgekehrt so¬ 
wie die Umwandlung in Binärzah¬ 
len. Dabei können sowohl negative 
als auch positive Zahlen eingege¬ 
ben werden. 

21) Xlister formatiert Applesoft- 
Programme so, daß sie leichter 
lesbar werden: Jeder Befehl einer 
Programmzeile wird in einer eige¬ 
nen Zeile dargestellt, Befehle in¬ 
nerhalb einer FOR-NEXT-Schleife 
werden eingerückt. Die Ausgabe 
ist auf den Bildschirm oder über 
Drucker möglich, wobei die Spal- 
tenzah! frei wählbar und auch Sei¬ 
tenumbruch auf dem Drucker 
möglich ist. 

Die Benutzung der Programme 
wird in einem 20seitigen englisch¬ 
sprachigen Handbuch erklärt. Das 
Gesamtpaket „Utility City" bietet 
auf den ersten Blick zwar eine Un¬ 
menge von Programmen, jedoch 
muß dabei berücksichtigt werden, 
daß verschiedene Programme nur 
umständlich zu handhaben sind 
oder andere Utilities nur dann be¬ 
nutzt werden können, wenn der 
entsprechende File auf der mo¬ 
mentan benutzten Diskette vor¬ 
liegt. Eine bessere Lösung wären 
hier entsprechende Routinen in 
Maschinensprache, die jederzeit 
im Speicher präsent sind. 


Ich selbst benutze zwei Program¬ 
me (Xlister und Screenwriter) re¬ 
gelmäßig und fünf andere Pro¬ 
gramme weniger häufig. Die restli¬ 
chen Utilities habe ich bisher sel¬ 
ten bzw. gar nicht benutzt. Vom 
Nutzen der Utilities her scheint der 
Preis von ca. DM 120,- überhöht, 
jedoch erhält man zusätzlich noch 
ein 25seitiges Büchlein mit ver¬ 
schiedenen Tips und ein Poster, 
auf dem wichtige Speicherstellen 
bzw. Monitorroutinen aufgelistet 
sind. Außerdem können die Pro¬ 
gramme - wie bereits erwähnt - 
alle gelistet werden; man lernt da¬ 
durch neue Programmiertechniken 
und erhält neue Ideen. 


2. DOS Boss 

Hierbei handelt es sich um einen 
Editor, mit dem es möglich wird, 
DOS-Kommandos und -Fehler¬ 
meldungen zu verändern sowie 
das Layout des Catalogs einer Dis¬ 
kette völlig neuartig und anspre¬ 
chender zu gestalten. DOS Boss 
funktioniert nur bei unverändertem 
DOS 3.3, nicht bei Diversi-DOS 
usw. Das Programm, das im zuge¬ 
hörigen Handbuch vollständig geli¬ 
stet wird, ist ein fast lupenreines 
Applesoft-Programm. Im Hand¬ 
buch wird nicht nur die Benutzung 
sehr klar und ausführlich (beson¬ 
ders für den Anfänger) beschrie¬ 
ben, sondern auch Aspekte des 
Disketten-Betriebssystems so ein¬ 
fach erklärt, daß es auch für Anfän¬ 
ger verständlich ist. 

Was ist mit DOS Boss alles mög¬ 
lich? 

1) Änderungen der DOS-Kom¬ 
mandos - Alle DOS-Befehle wer¬ 
den angezeigt und können dann 
nach eigenen Vorstellungen um¬ 
benannt oder eingedeutscht wer¬ 
den. Für verschiedene Befehle 
werden als Beispiel andere oder 
bessere Kommando-Versionen 
vorgestellt. Außerdem werden 
noch Regeln aufgezählt, die beim 
Ändern von Befehlen unbedingt 
beachtet werden sollten. 

2) Änderung der Fehlermeldun¬ 
gen - Man erhält alle Fehlermel¬ 
dungen angezeigt und kann dann 
nach eigenem Gutdünken Verän¬ 
derungen vornehmen. Hierfür wer¬ 
den im Handbuch auch Beispiele 
gezeigt. 

3) Änderungen des Catalog-For- 
mats - Normalerweise können nur 
maximal 23 File-Namen auf dem 
Bildschirm angezeigt werden. Mit 
DOS Boss kann diese Anzahl bis 
auf 88 erhöht werden. 
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4) Änderungen in der Volume- 
Zeile - DOS Boss erlaubt auch 
Änderungen in der Volunne-Zeile. 
Die Zeile kann in den drei Ausga¬ 
bemodi (NORMAL, FLASH, IN¬ 
VERSE) angezeigt werden; der 
Text kann beliebig geändert wer¬ 
den (maximal 16 Zeichen sind 
möglich). Die Volume-Nummer 
wird wahlweise angezeigt oder 
weggeiassen. Mit „Spezialzei¬ 
chen" können Zeichen eingerückt 
oder überschrieben sowie Zeilen¬ 
vorschub oder ein Return eingege¬ 
ben werden. 

5) Änderungen des File-Codes- 

Der normale File-Code (A, I, B, T) 
kann genauso wie das UNLOCK- 
Symbol (Leertaste) und das 
LOCK-Symbol (^^) geändert wer¬ 
den; falls erforderlich sogar in in¬ 
verse oder blinkende Zeichen. 

Sind alle gewünschten Änderun¬ 
gen vorgenommen, so können 
diese auf zwei Arten auf Diskette 
„verewigt" werden: 

1. Initialisierung einerfrischen Dis¬ 
kette. 

2. Speicherung von entsprechend 
vorbereiteten Programmzeilen in 
einem Applesoft-Programm mit 
Hilfe eines EXEC-Files. 

DOS Boss ist jedoch nicht das ein¬ 
zige Programm, das auf der Dis¬ 
kette vorhanden ist: 

Key Cat ist eine Utility, die eine 
leichtere Auswahl von Program¬ 
men aus der Catalog-Routine her¬ 
aus gestattet. Jedes Programm 
wird mit einem einfachen Tasten¬ 
druck geladen und gestartet. Auf 
Wunsch werden die freien und be¬ 
legten Sektoren der benutzten 
Diskette angezeigt. 

Bait Cat zeigt die Files einer Dis¬ 
kette sortiert nach Filetypen an. 

Zwei Programme, LP und NU, 
werden mit entsprechenden Be¬ 
fehlsänderungen über DOS Boss 
zu den „Pseudobefehlen“ Help 
und Menu. 

Neben der Programmbedienung 
erklärt das Handbuch auch, wie 
man DOS ohne DOS Boss ändern 
kann. Verschiedene Tips und 
Tricks werden in einem besonde¬ 
ren Büchlein und in einem lOseiti- 
gen Teil des Handbuchs mitgelie¬ 
fert. 

Der Preis von DM 100,- ist ge¬ 
rechtfertigt. Das Programm ist 
nützlich für diejenigen, die ihre 
Programme verkaufen oder verlei¬ 
hen. Aber auch derjenige, der kei¬ 
ne direkte Anwendung für DOS 
Boss hat (so wie ich), lernt viel 
über DOS 3.3. 


3. Tip Disk 1 

Jedes von den Beagle Brothers 
verkaufte Objekt umfaßt neben di¬ 
versen Zutaten wie PEEK- und 
POKE-Poster, Befehlstabelle, 
Farbtabelle, ASCII-Tabelle usw. 
noch ein Tip-Buch oder eine Tip- 
Chart (Poster). Neben Hardware- 
Tips enthalten diese Bücher und 
Poster noch verschiedene Pro¬ 
gramme und Programmiertricks. 
Die Tip Disk 1 enthält alle Program¬ 
me, die in den Tip Büchern 1 bis 4 
erschienen sind. 

Auf der Diskette befinden sich 
zwei Utilities zur Konvertierung 
von Programmen in die jeweils an¬ 
dere Sprache (Applesoft bzw. Inte- 
ger-BASlC), eine FLASH-Befehl- 
Simulierung für Integer-BASIC, ein 
Begrüßungsprogramm und ein 
Zählprogramm für die Anzahl von 
Programmläufen. Des weiteren 
gibt es Programme, die den Text¬ 
bildschirm auf den Drucker ausge¬ 
ben, eine vollständige ASCII-Ta¬ 
belle ausdrucken und das Layout 
des Textbildschirms zeigen. Ein 
kleines Spielprogramm ist ebenso 
auf der Diskette zu finden wie eine 
Alphabetisierungsroutine. In weite¬ 
ren Programmen wird die Anwen¬ 
dung von Shapes gezeigt, die Slot- 
Belegung dargestellt und erklärt 
sowie das Applesoft-ROM durch¬ 
sucht. 

Einige Programme sind nützlich, 
viele sind unnütz, jedoch sind alle 
Programme interessant. Sie kön¬ 
nen beliebig kopiert und gelistet 
werden und erfüllen damit einen 
gewissen Lehrzweck. Der Preis 
von DM 70,- ist meines Erachtens 
gerechtfertigt. 


4. Silicon Salad 

Auf dieser Diskette sind wie auf 
der Tip Disk 1 jede Menge Pro¬ 
gramme. Unter anderem alle Pro¬ 
gramme der Tip-Bücher 5 bis 7 
und der Tip-Chart 1. 

Die Beagle Brothers führen eine 
Art Wettbewerb durch, in dem die 
Programmkäufer bzw. die Tip- 
Buch-Leser aufgefordert werden, 
zweizeilige, voll lauffähige Pro¬ 
gramme einzusenden. Da Pro¬ 
gramme einen Zweck erfüllen sol¬ 
len und in zwei Zeilen weder ein 
umfangreiches Frage- und Ant¬ 
wortspiel noch ein Tabellenkalkula¬ 
tionsprogramm programmierbar 
ist, bleiben nur Grafik- und Musik¬ 
programme übrig. Der größte Teil 
der Zweizeiler zeigt daher auch 
Grafiken auf den Lores- bzw. Hi- 
res-Seiten. Diese Programme sind 
sehr unterhaltsam (ich könnte 


manchen stundenlang zuschau¬ 
en!) und zeigen außerdem, was 
effektives Programmieren ist und 
wie man kompakten Programm¬ 
code „produziert". 

Unter den Programmen aus den 
Tip-Büchern befindet sich ein 
Spielprogramm (Black Jack), eine 
Sortier- und eine Text-Zentrierrou¬ 
tine. 

Des weiteren gibt es ein Pro¬ 
gramm, das es gestattet, Hires-Bil- 
der mit BRUN zu starten. Dabei 
wird automatisch die richtige Hi- 
res-Seite gewählt und einge¬ 
schaltet. 

Ein Programm, genannt Text Im¬ 
print, nimmt allen Text vom Text¬ 
bildschirm und „zeichnet“ ihn auf 
den Hires-Grafikbtldschirm. 

Ein Text Screen Formatter er¬ 
laubt es, zuerst ein Bildschirm- 
Layout zu entwerfen und „formt" 
dieses Layout später zu einem rei¬ 
nen Applesoft-Programm (VTAB-, 
HTAB- und PRINT-Kommandos) 
um. 

Help Screen speichert eine kurze 
Bedienungsanleitung oder einen 
Hilfstext auf die Textseite 2 und 
zeigt diese nach Eingabe von 
CtrI-l. 

Ein weiteres Programm verschiebt 
einen beliebigen Bereich der Text¬ 
seite 1 in die Seite 2, ein anderes 
gibt einen beliebigen Bereich des 
Textschirms auf dem Drucker aus. 

Zusätzlich befinden sich noch 
sechs Utilities auf der Diskette: 

1) Disk Scanner sucht nach phy¬ 
sikalisch defekten Sektoren einer 
Diskette. Werden „schlechte“ 
Sektoren gefunden, wird die VTOC 
(Inhaltstabelle) der Diskette so ge¬ 
ändert, daß die schlechten Sekto- 


Triple-Dump 

Ein Blldschirm-Druckprogramm 
Erfahrungsbericht von Rolf W. 

Das von der Firma Beagle Bros, 
entwickelte Programm Triple- 
Dump ist jetzt bei einschlägigen 
deutschen Importeuren für etwa 
DM 160,- erhältlich. Es dient dem 
Zweck, 40- und 80-Z/Z-Text-, Lo¬ 
res-, Double-Lores-, Hires- und 
Double-Hires-Bildschirminhalte auf 
den Drucker auszugeben. Für 
Double-Hires werden die mit 
Beagle-Graphics (s. Peeker, 8/85, 
S.77) gezeichneten Bilder benö¬ 
tigt. 

Zum Lieferungsumfang gehören je 
eine beidseitig zu benutzende 


ren nicht mehr benutzt werden 
können. 

Als Fazit kann ich sagen, daß ich 
den Kauf der hier beschriebenen 
Programmpakete nicht bereue. 
Wenn ich auch verschiedene Pro¬ 
gramme aus unterschiedlichen 
Gründen nicht benutze, so hat mir 
jedoch jedes Paket sehr beim Ken¬ 
nenlernen des Apple und beim 
Programmieren geholfen. 

2) DOS Killer entfernt DOS von 
einer Diskette. Damit erhält man 
weitere 32 frei benutzbare Sek¬ 
toren. 

3) Key Clicker verlangt die Einga¬ 
be einer Zahl, die als Wert für ei¬ 
nen „Klick“ gespeichert wird. Da¬ 
nach sendet jeder Tastendruck ei¬ 
nen Ton (Klick) aus. 

4) Program Splitter teilt ein gro¬ 
ßes Applesoft-Programm in ge¬ 
trennte Speicherbereiche auf. Be¬ 
nutzt nämlich ein sehr langes Ap- 
plesoft-Programme die Hires-Gra- 
fik, so kann es selbst oder dessen 
Variablen mit den Hires-Bildern 
derart in Konflikt geraten, daß sie 
sich gegenseitig löschen. Program 
Splitter produziert ein „Loch" im 
Applesoft-Programm, in dem dann 
die Hires-Seite liegt. 

5) Two Tiack Cat stellt DOS so 
um, daß für den Catalog zwei Spu¬ 
ren statt einer Spur zur Verfügung 
stehen. Damit kann statt 105 Files 
die doppelte Anzahl gespeichert 
werden. Die Files müssen natürlich 
entsprechend kurz sein. 

6) Undelete „entlöscht“ gelöschte 
Files einer Diskette. 

Diese Utilities alleine rechtfertigen 
den Preis von ca. DM 90,- DM für 
Silicon Salad. 



Becker 

DOS-3.3- und ProDOS-Diskette. 
Auf der ersten Seite befindet sich 
das Triple-Dump-Programm, Text¬ 
dateien mit den häufigsten Druk- 
kern und Interfaces (je ca. 50). Da¬ 
mit kann man Triple-Dump auf sei¬ 
ne Konfiguration einstellen, ab¬ 
speichern und hat bei jedem Pro¬ 
grammstart den richtigen Drucker 
mit dem entsprechenden Interface 
eingestellt. Mit dem Programm 
Transfer kann diese Einstellung 
dann auf die DOS-lose Rückseite 
übertragen werden, wie im übrigen 
auch auf andere Disketten, denn 
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alle Programme sind wie gewohnt 
listfähig und kopierbar und können 
somit in eigene Programme einge¬ 
bunden werden. 

Auf der Rückseite (ohne DOS) 
sind mehrere Hilfsprogramme, um 
alle 6 Arten von Bildschirminhalten 
abzuspeichern oder zu drucken, 
z.B. ein Programm, das Text in die 
Hires oder Double-Hires schreibt, 
wozu sich die Fonts von Beagle- 
Graphics eignen. Außerdem sind 
Beispiel-Bilder auf beiden Disket¬ 
tenseiten vorhanden. 


Implementierte Befehle 

Nach dem Starten von Triple- 
Dump erscheint ein Optionsmenü 
mit der abgespeicherten Drucker- 
Interface-Konfiguration. Danach 
kann man u.a. wählen: 

Type: Art des Bildschirminhalts, 
der mit Return ausgewählt wird. 

Load Picture: Nach Return wird 
der Catalog gezeigt, mit den Pfeil¬ 
tasten die Bilddatei ausgewählt 
und mit Return geladen. 

Crop Picture: Das Bild kann von 
allen vier Seiten verkleinert wer¬ 


den, damit nur ein Ausschnitt aus¬ 
gedruckt wird. Der Ausschnitt kann 
mit „Magnify“ der Papierbreite 
entsprechend vergrößert gedruckt 
werden. 

Print Picture: Das Bild wird aus¬ 
gedruckt. Falls der Vergrößerungs¬ 
maßstab oder die linke Randein¬ 
steilung die Papierbreite über¬ 
schreiten sollte, wird nicht ge¬ 
druckt, sondern darauf hingewie¬ 
sen, daß neu eingestellt werden 
muß. 


Rotate: Der Ausdruck kann um 0, 
90,180, 270 Grad gedreht werden. 
Indent: Der Abstand vom linken 
Rand kann der Papierbreite ent¬ 
sprechend beliebig festgelegt 
werden. 

Negative: Damit kann der Bild¬ 
schirm invertiert bzw. negativ ge¬ 
druckt werden (funktioniert nicht 
bei Textbildschirm). 

Magnify X, Y: Die Vergrößerung 
des Bildes wird festgelegt. 
Density: Die druckerabhängige 
Druckart wird festgelegt (Punkte je 
Zoll). 

Disk Drive; 1 oder 2. 


Um die Einstellungen für Drucker, 
Interface, Slot, Papierbreite, Ver¬ 
zögerung, Zeilenvorschub usw. 
braucht man sich normalerweise 
nicht zu kümmern. Nach Betäti¬ 
gung der Leertaste kann jederzeit 
das im Speicher befindliche Bild 
angesehen werden. Mit F wird ein 
Blattvorschub erzeugt, mit L ein 
Zeilenvorschub. Mit ESC wird das 
Programm verlassen. 

Triple-Dump ist ein komfortables 
und gut funktionierendes Druck¬ 
programm, das viele Druckmög¬ 
lichkeiten bietet. Es ist damit auch 
ganz einfach. Bilder zwischen Text 
zu drucken oder umgekehrt. Bei 
allen Varianten wie Rotate, Magni- 


von Rudolf Rötering 

Seit kurzem ist der von mir im 
Peeker6/85, S. 72ff. beschriebene 
RAM-Disk-Driver und eine 
schnelle Garbage-Collection im 
normalen Lieferumfang der Ver¬ 
sion 4.1-C zum Preis von $ 30.00 
enthalten. Ab 1. Juli 1985 hat DSR 
Inc. folgende neue Anschrift: 

Diversified Software Research, 
Inc. 

34880 Bunker Hill 
Farmington, Ml 48018-2728 
Tel. 313 553-9460 
USA 

Die Ziffernfolge 815 877-1343, die 
im Nachwort hinter meinem Be¬ 
richt im Peeker 6/85 folgt, ist die 
Telefonnummer von DSR Inc. in 
Rockford, III. und nicht die Konto¬ 
nummer der (VISA/Master-Card). 
Es geht wirklich am einfachsten 
und schnellsten, wenn, wie in mei¬ 
ner Vorlage erwähnt, die 30,- Dol¬ 
lar in bar per Post im Bestellbrief 
übersandt werden. Das mag für 
deutsche Verhältnisse ungewöhn¬ 
lich sein, ist aber in den USA 
durchaus üblich. 

Garbage-Collection von DSR 

Die neue schnelle Garbage-Col¬ 
lection wird mit BRUN GARB akti¬ 
viert. GARB setzt die Ampersand- 
und CtrI-Y-Vektoren und ersetzt 
die jeweilige INIT-Routine (64K- 
DOS oder 48K-DOS) durch die 
neue Collection-Routine. Sie kann 
daher sowohl durch den Amper¬ 
sand- (mit „&") als auch durch den 
CtrI-Y-Vektor mit „CALL 1016“ 
ausgelöst werden. Durch 


fy, Crop, Indent usw. werden die 
Ausdrucke gleich gut und sind ein¬ 
wandfrei. 

Als Zugabe ist auf der Rückseite 
noch „Big Banner“ enthalten, der 
bis zu 200 Zeichen lange Texte in 
einem Schriftgrad von 8 Zoll aus¬ 
druckt. Da das Programm auflistbar 
ist, habe ich am Anfang noch eine 
kleine Abfrage eingefügt, die die 
Schriftgröße festlegt. Genauso wie 
dieses Programm können auch alle 
anderen eingedeutscht werden. 
Die englische Beschreibung ist 
übersichtlich und gut verständlich. 



POKE 48816,N (48K-DOS) oder 
POKE 65200,N (64K-DOS) 
kann mit N wie bei Harald Grum- 
sers LC.FRE oder RAM.FRE 
(Peeker 1/85) die Unterschreitung 
der Anzahl der freien String-Seiten 
als Bedingung für das Durchführen 
dieser Routine gewählt werden. 
Als Vorgabe gilt N = 4, das 1K 
Restspeicher bedeutet. Mit N = 0 
wird die Garbage-Collection er¬ 
zwungen. 

Weil diese Routine den Speicher¬ 
bereich der INIT-Routine belegt, 
steht entweder der INIT-Befehl 
oder die Garbage-Collection zur 
Verfügung. Hieraus ergibt sich der 
Vorteil, daß z.B. die Bank 2 der 
Language-Card für die INPUT-2.0- 
Routinen (vom Hüthig Software 
Service) zur Verfügung steht. Beim 
64K-DOS kann durch BRUN UN- 
GARB64 der Garbage-Collection- 
Patch wieder rückgängig gemacht 
werden. 

Mit dem Programm FRE.TEST (aus 
Peeker 1-2/85) wurde ein Zeitver¬ 
gleich mit anderen Collection-Rou- 
tinen gemacht, den die Tabelle 1 
darstellt, wobei die Werte für die 
bereits getesteten Routinen über¬ 
nommen wurden, zumal mir nur 
eine mechanische Stoppuhr zur 
Verfügung stand. Es wurde außer 
dem im Peeker 1-2/85 erschiene¬ 
nen Programm LC.FRE, der 
GARB-Routine von Diversi-DOS 
4.1-C auch die FAST-GARBAGE- 
COLLECTION von Randy Wig- 
gington aus „CALL A.P.P.L.E. in 
Depth 1" verglichen. Sie belegt 
beim Test den Bereich von $B900 
bis $BEFA, wobei der Bereich ab 
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$BAA4 = 1110 Bytes als Work- 
space benutzt wird, der die Verar¬ 
beitungsgeschwindigkeit maßgeb¬ 
lich beeinflußt. Bei dieser Routine 
läßt sich dieser Bereich im Source- 
Code einstellen. 

Zusammenfassend läßt sich sa¬ 
gen, daß Harald Grumsers Routine 
nicht zu unterbieten ist und die Be¬ 
zeichnung „Müllabfuhr wie ein 
Blitz“ äußerst treffend erscheint. 
Die FAST-GARBAGE-COLLEC- 
TION von Randy Wiggington und 
die GARB-Routine von Diversi- 
DOS 4.1-C dauern 10- bis SOmal 
länger und sind somit nur Mittel¬ 
maß, obwohl sie ca. SOmal schnel¬ 
ler sind als das Interpreter-FRE. 
Für die FAST-GARBAGE-COL- 
LECTION hält Apple Computer Inc. 
das Copyright, die im Oktober 
1980 wohl als erste Routine dieser 
Art erschienen ist. 

APPEND im Geschwindigkeits- 
Vergleich 

Beim Geschwindigkeitsvergleich 
der Disketten-Betriebssysteme 
fehlen die Werte für APPEND, bei 


dem der Unterschied zu DOS 3.3 
besonders groß ist. ProDOS ist 
hier wohl genauso schlau wie Di- 
versi-DOS und nimmt die Abkür¬ 
zung über die Track/Sektor-Liste, 
ich habe mir erlaubt, das Pro¬ 
gramm um diesen Test zu erwei¬ 
tern und die Testdaten in die Ta¬ 
belle einzufügen. Die Zeitangaben 
im Peeker 6/85 beziehen sich 
beim Test auf leere Disketten. Ver¬ 
suche auf zum Teil beschriebenen 
Disketten können zum Beispiel 
beim BSAVE unter ProDOS 30 bis 
40 Sekunden länger dauern. Beim 
WRITE- und READ-Test in Zeile 50 
bzw. 60 komme ich bei ProDOS 
auf völlig andere Zeiten. Ich messe 
beim WRITE 70 statt 108 Sekun¬ 
den und beim READ 145 statt 105 
Sekunden. Beim DOS-3.3-READ 
in Zeile 60 muß es 283 statt 243 
Sekunden heißen. 

Die Tabelle 2 gibt die von mir auf 
einem Disk-Il-Laufwerk gemesse¬ 
nen Werte wieder. Sofern meine 
Zeiten nicht mehr als 5 Sekunden 
vom Bericht abwichen, habe ich 
die Daten aus der Ausgabe 6/85 
übernommen. 


Tabelle 1: Zeitverglelch der Garbage-Collection-Routlnen 


Anzahl der erzeugten String-Leichen 



100 

500 

1000 

2000 

5000 

LC.FRE 

Peeker 1-2/85 

0,03 

0,11 

0,20 

0,52 

1,3 s 

FAST-GARBAGE- 

COLLECTION 

0,30 

2,00 

4,50 

12,00 

52,4 s 

GARB Diversi- 
DOS 4 - 1-C 

0,30 

1,T0 

4,30 

12,90 

67,0 s 

Applesoft-In- 

terpreter-FRE 

0,94 

19,40 

74,50 

292,00 

1800,0 s 


Alle Zeitangaben in Sekunden. 


Listing des modifizierten FRE TEST aus Peeker 1-2/85 

110 HIMEM: 47360 
120 A = 5000 

130 B$ = CHR$ (7): REM Bell 
140 GOSUB 220; DIM A$(A) 

150 FOR I = 0 TO A 

160 A$(I) - B$:A$(I) = B$ 

170 NEXT 

180 GOSUB 220: PRINT B$; 

190 CALL 47370: REM bei FASTGARBAGE aus CALL A.PP.L.E, 
195 REM Diversi-DOS GARE; POKE 65200,0: CALL 1016 
200 PRINT B$;: GOSUB 220 
210 END 

220 PRINT "STRINGS^ PEEK (115) + PEEK (116) * 256 - 
PEEK (111) - PEEK (112) * 256, 

230 PRINT "FRE= "; PEEK (111) + PEEK (112) * 256 - PEEK 
(109) - PEEK (110) # 256 
240 RETURN 


Tabelle 2: DOS-GeschwIndIgkeltsverglelch 


Zeile 

Befehl 

ProDOS 

Diversi- 
DOS 4.1-C 

DOS 3.3 

10 

BSAVE 

383 

155 

837 

20 

BLOAD 

97 

125 

628 

30 

WRITE 

30 

57 

140 

40 

READ 

27 

47 

165 

80 

APPEND 

[3) 

(5) 

(127) 

50 

WRITE 

(72) 

95 

171 

60 

READ 

(145) 

86 

(283) 

70 

APPEND 

(3) 

(5) 

(127) 


Alle Zeitangaben in Sekunden. Die Klammerwerte sind gegenüber 
Peeker 6/85 korrigiert bzw. ergänzt. 

Modifiziertes und erweitertes Listing aus Peeker 6/85 
zum DOS-Geschwindigkeitstest. 

10 FOR I = 1 TO 20: PRINT CHR$ (4)"BSAVE XXX,A$1000, 

L$7FFF": NEXT : PRINT CHR$ (7): END 

20 FOR I = 1 TO 20: PRINT CHR$ (4)"BL0AD XXX": NEXT : 

PRINT CHR$ (7): END 

30 A$ - "123456789 123456789 123456789 123456789 123456789 
123456789 123456789 123456789 123456789 123456789" 

31 PRINT CHR$ (4)"0PEN YYY": PRINT CHR$ (4)"WRITE YYY": 

FOR I = 1 TO 500: 

32 PRINT A$ 

33 NEXT : PRINT CHR$ (4)"CL0SE": PRINT CHR$ (7): END 

40 PRINT CHR$ (4)"OPEN YYY": PRINT CHR$ (4)"READ YYY": 

FOR I = 1 TO 500 

41 INPUT ""jA$ 

42 NEXT : PRINT CHR$ (4)"CL0SE": PRINT CHR$ (7): END 

50 A - 123456789 

51 PRINT CHR$ (4)"0PEN ZZZ": PRINT CHR$ (4)"WRITE ZZZ": 

FOR I = 1 TO 5000 

52 PRINT A 

53 NEXT : PRINT CHR$ (4)"CL0SE": PRINT CHR$ (7): END 

60 PRINT CHR$ (4)"0PEN ZZZ"; PRINT CHR$ (4)"READ ZZZ": 

FOR I = 1 TO 5000 

61 INPUT "";A 

62 NEXT : PRINT CHR$ (4)"CL0SE": PRINT CHR$ (7): END 


APPEND-Erwelterung 


70 PRINT CHR$ (4)"APPEND ZZZ": PRINT CHR$ (4)"WRITE ZZZ": 
REM bei ProDOS ohne WRITE! 

71 PRINT "123456789" 

72 PRINT CHR$ (4)"CLOSE": PRINT CHR$ (7): END 

80 A$ = "123456789 123456789 123456789 123456789 123456789 
123456789 123456789 123456789 123456789 123456789" 

81 PRINT CHR$ (4)"APPEND YYY": PRINT CHR$ (4)"WRITE YYY"; 
REM bei ProDOS ohne WRITE! 

82 PRINT A$ 

83 PRINT CHR$ {4)"CL0SE": PRINT CHR$ (7): END 



BASF-Flexydisk 1X und 1D 

Erfahrungsbericht von Ulrich Stiehl 


Auch wenn uns ein Leserbrief¬ 
schreiber lobend mit der Stiftung 
Warentest vergleicht, so muß doch 
darauf hingewiesen werden, daß 
eine Computerzeitschrift im allge¬ 
meinen und der Peeker im beson¬ 
deren normalerweise ein Produkt 
nicht in demselben Umfang testen 
kann, wie dies bei einem staatlich 
geförderten Testinstitut möglich 
ist. Eine Zeitschriftenredaktion 


kann sich um Objektivität bemü¬ 
hen, doch wäre es aus Kosten¬ 
gründen nicht vertretbar, ein Pro¬ 
dukt Wochen- oder gar monatelan¬ 
gen Dauertests zu unterziehen. 
Greifen wir als ein Beispiel Disket¬ 
tenlaufwerke heraus. Wenn man 
einen Tag lang ein Laufwerk in Ver¬ 
bindung mit verschiedenen Be¬ 
triebssystemen ausprobiert, Über¬ 
tragungsraten mißt und allgemeine 
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Eindrücke sammelt, so sind dies 
nützliche Hinweise für den Leser, 
die jedoch andererseits über die 
Robustheit, den geringen Ver¬ 
schleiß und die Wartungsfreund¬ 
lichkeit der Laufwerke wenig aus- 
sagen. Diese Eigenschaften könn¬ 
ten sich nur im monatelangen Ein¬ 
satz verifizieren lassen. 

Diskettentest 

Wie steht es nun mit dem Testen 
von Disketten einer bestimmten 
Marke? Würde man ein einzelnes 
Muster eines Diskettenherstellers 
erhalten, so könnte man wahr¬ 
scheinlich überhaupt keine verläß¬ 
lichen Aussagen machen, denn 
dieses Muster wäre sicherlich vom 
Hersteller vor dem Versand geprüft 
worden. Wäre indessen diese eine 
Diskette zufällig defekt, so könnte 
man natürlich nicht generalisieren, 
daß alle Disketten dieser Marke 
mangelhaft sind. 

Als Forschungsinstitut könnte man 
z.B. 10.000 Disketten kaufen und 
einen auf Diskettenmaterialprüfung 
spezialisierten Ingenieur beauftra¬ 
gen, alle Disketten mit wissen¬ 
schaftlicher Akribie zu testen und 
die Ergebnisse statistisch aufzube¬ 
reiten. Dies würde weit über 
50.000,- DM kosten. Selbst die 
Stiftung Warentest würde hier die 
Waffen strecken. 

Durch unseren Hüthig Software 
Service bezogen wir bislang 
BASF-„Flexydisk"-Disketten in 
größeren Mengen, die natürlich al¬ 
le formatiert und bespielt werden 
mußten, was zwar keinen wissen¬ 
schaftlichen, aber immerhin einen 
praxisorientierten Test darstelite. 
Wie die Vergangenheitsform an¬ 
zeigt, sind wir inzwischen von den 
BASF-Disketten abgekommen, 
denn der Ausschuß bei IX- und 
1 D-Disketten war viel zu hoch. 


Schuhsohleneffekt: In den ersten 
Monaten dieses Jahres hatten wir 
bei IX-Disketten einen Ausschuß 
von wahrscheinlich gut 1 %, d.h. 10 
von 1000 Disketten wiesen von 
vornherein den - wie ich es später 
nannte - „Schuhsohleneffekt“ auf. 
Gleichviel ob man Schuhsohlen 
oder solche fehlerhaften IX-Dis- 
ketten in das Laufwerk steckte: Ei¬ 
ne Formatierung war in beiden Fäl¬ 
len grundsätzlich unmöglich. 

Klebfilzeffekt: Daneben trat häu¬ 
fig der „Klebfilzeffekt“ auf. Dabei 
handelte es sich um fabrikneue 
Disketten, die sich nicht richtig 
drehen lassen, weil der Reibungs¬ 
widerstand der Filzschicht zu groß 
ist. Solche Disketten waren zwar in 
der Regel formatierbar, mußten je¬ 
doch von vornherein aussortiert 


werden. Darüber hinaus trat der 
„Klebfilzeffekt“ sehr häufig nach 
dem Versand auf. Dazu muß man 
wissen, daß sich eine Peeker-Dis- 
kette in der Lasche eines 3mal ge¬ 
rillten roten 250g/qm-Broschuren- 
umschlags befindet, der in eine 
Plastikhülle gesteckt wird, die je¬ 
doch nicht zugeschweißt wird. Das 
ganze wird dann in einem Wellpap¬ 
pe-Kuvert mit zusätzlicher Steif- 
pappe-Einlage versandt. Bei einem 
Preis von nur DM 20,- für Fortset¬ 
zungsbezieher verbietet sich eine 
noch aufwendigere Verpackungs¬ 
form (Hartplastik-Container o.äO, 
denn sonst würde die Verpackung 
mehr als die Diskette kosten. Au¬ 
ßerdem sind die im Kartonagen- 
handel erhältlichen Spezialdisket¬ 
tenkuverts erheblich weniger auf¬ 
wendig. Offenbar sind jedoch 
BASF-Disketten sehr empfindlich 
gegen mechanischen Druck und 
Temperaturschwankungen, was 
beim Postversand den Klebfilz¬ 
effekt hervorrufen kann. 

Doch zurück zu dem „Schuhsoh¬ 
leneffekt“. Nachdem ich mich ver¬ 
stärkt um das Diskettenproblem 
kümmerte - das eigentliche Kopie¬ 
ren erfolgt nach wie vor außer 
Haus (mit normalen Apple-Origi- 
nallaufwerken) -, wurden in Form 
von Strichlisten immer mehr 
„Schuhsohlen" registriert. Diese 
wurden dann über meinen Heidel¬ 
berger Apple-Händler, über den 
wir damals die Disketten bezogen, 
bei BASF in Ludwigshafen zur Ma¬ 
terialprüfung eingereicht. Als Ant¬ 
wort bekamen wir nur die lapidare 
mündliche Mitteilung, daß alle Dis¬ 
ketten in Ordnung seien, obwohl 
sie auf keinem unserer benutzten 
Originallaufwerke (Disk-Il-Drives, 
Duodisk und Ilc-Drives) formatier¬ 
bar waren. Uns wurde dann emp¬ 
fohlen, statt der 1X-Disketten (ein¬ 
seitig, einfache Dichte) ID-Disket- 
ten zu erwerben (einseitig, doppel¬ 
te Dichte). Als dann bei den ersten 
400 von 2000 1 D-Disketten 12 
Disketten den „Schuhsohlenef¬ 
fekt“ aufwiesen - dies sind immer¬ 
hin schon 3% - waren wir gezwun¬ 
gen, von BASF-„Quality“-Disket- 
ten Abstand zu nehmen. Aufgrund 
unserer praktischen Erfahrung mit 
weit über 10.000 IX- und 1D-Dis- 
ketten muß man leider konstatie¬ 
ren, daß hier mit einem Ausschuß 
von über 1% gerechnet werden 
muß. Möglicherweise sind ID-Dis- 
ketten anderer Produzenten auch 
nicht besser, doch angesichts der 
relativ hohen Preise der BASF- 
Marken-Disketten ist man wenig 
gewillt, beim Formatieren und Ko¬ 
pieren größerer Mengen stets ei¬ 
nen Abfalleimer für den Ausschuß 
bereitzuhalten. / 
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Die Microsoft-Premium-Softcard 
für den Apple Ile 


getestet von Ulrich Stiehl 

Wer das Betriebssystem CP/M 
einsetzen will, kann über die Firma 
Microsoft zwei verschiedene Arten 
von Z80-Karten erwerben: 

1. die „normale" Softcard, die es 
bereits seit einigen Jahren gibt und 
die eine reine Z80-Prozessorkarte 
ohne Zusatz-RAM darstellt: ein- 
setzbar auf dem Apple II Plus und 
dem Apple Ile, 

2. die „prämiierte" Softcard, die es 
seit Ende 1983 gibt und über zu¬ 
sätzliche Eigenschaften verfügt; 
ntvreinsetzbar auf dem Apple Ile. 

1. Hardware 

Die Premium-Softcard vereinigt 
die Funktionen von drei Karten: 

(a) Z80-Prozessorkarte mit 6 MHz 

(b) 80-Z/Z-Karte 

(c) 64K-RAM-Karte 

Die Funktionen (b) und (c) werden 
normalerweise von der erweiterten 
80-Zeichenkarte (= Extended 80 
Column Card) wahrgenommen. Da 
sowohl die Premium-Card wie 
auch die erweiterte 80-Zeichen¬ 
karte nur für den auf der Mitte der 
Platine befindlichen Slot 3 gedacht 
sind, kann man nur entweder die 
eine oder andere Karte benutzen, 
d.h. niemals beide gleichzeitig. 
Wann ist die Anschaffung der Pre¬ 
mium-Softcard optimal? Genau 
dann, wenn man unter CP/M arbei¬ 
ten will und noch keine erweiterte 
80-Zeichenkarte für den Apple Ile 
besitzt. Auch dann, wenn man den 
Apple Ile mit erweiterter 80-Zei¬ 
chenkarte erworben hat, ist die 
Premium-Softcard durchaus in Er¬ 
wägung zu ziehen, weil sie nur ei¬ 
nen Slot belegt, während erweiter¬ 
te 80-Zeichenkarte plus „normale" 
Softcard zwei Slots in Beschlag 
nehmen. 

Die Premium-Softcard ist unge¬ 
wöhnlich groß. Zur Installierung ist 
es deshalb erforderlich, daß man 
zunächst die in den benachbarten 
Slots 2 und 4 befindlichen Karten 


herauszieht, dann die Premium- 
Softcard in den Slot 3 steckt und 
schließlich wieder die benachbar¬ 
ten Karten einsetzt. Diese Proze¬ 
dur kann lästig werden, wenn man 
häufig Interface-Karten wechseln 
muß. 

2. Software 

Die Premium-Softcard wird mit ei¬ 
ner CP/M-80-Masterdiskette ge¬ 
liefert, die die 64K-\/ersion von 
CP/M 2.26B enthält. Dieses CP/M 
2.26B ist nur für die Premium-Soft¬ 
card bestimmt und umgekehrt: 

a) Würde man die Masterdiskette 
auf einem Apple Ile booten, der 
nur die „normale" Softcard enthält, 
so würde die Version 2.26B nicht 
die Existenz der Softcard entdek- 
ken („Can’t find softcard"). 

b) Würde man umgekehrt auf ei¬ 
nem Apple Ile mit Premium-Soft¬ 
card das „normale“ CP/M 2.2 boo¬ 
ten, so würde sich das Betriebssy¬ 
stem „aufhängen". 

Daraus folgt, daß man das neue 
CP/M auf alle älteren Programm¬ 
disketten kopieren muß. Dabei 
verfahre man wie folgt: 

1. CP/M 2.26B booten 

2. „COPY" starten 

3. Mit „B:=A:/S" 

CP/M von Drive A auf Drive B ko¬ 
pieren. 

Neben dem Betriebssystem im en¬ 
geren Sinne enthält die Masterdis¬ 
kette folgende Systemprogramme 
und Utilities: 

APDOS: Überträgt Text- und Bi¬ 
närfiles von einer DOS-3.3-Disket- 
te im Drive 2 („B:") auf eine CP/ 
M-Diskette in Drive 1 („A:"). 

ASM: Assembliert 8080-Quell- 
code (also keinen Z80-Queltcode 
i.e.S.). 

AUTORUN: Dient dem automati¬ 
schen Start eines Programms nach 
dem Booten (ähnlich wie START- 
UP unter Pascal und ProDOS so¬ 


wie „HELLO“ unter DOS 3.3). 
BOOT: Schaltet den Z80-Prozes- 
sor ab und bewirkt den (warmen) 
Bootvorgang eines 6502-Betriebs- 
systems, z.B. von DOS 3.3. An¬ 
stelle von BOOT kann man auch 
die drei Tasten „Ctrl-Offener-Ap- 
fel-Reset“ drücken. (CtrI-Reset al¬ 
lein genügt hier nicht und würde 
nur - wie CtrI-C - einen CP/M- 
Warmstart herbeiführen.) 

CAT: Zeigt im Gegensatz zu 
„DIR“ einen etwas ausführlicheren 
„Catalog" einer Diskette an, wobei 
z.B. auch die Längen der Dateien 
in K angegeben werden. 
CONFIGIO: GBASIC-Programm 
zur Gerätekonfigurierung; wird bei 
der Premium-Softcard normaler¬ 
weise nicht benötigt. 

COPY: Dient zum Formatieren und 
Kopieren ganzer Disketten oder 
des Betriebssystems allein (s.o.). 
DDT: Debugger für 8080-Pro- 
gramme (Dynamic Debugging 
Tool): wird im Microsoft-Handbuch 
nicht erklärt. 

DUMP; Bewirkt einen Dump einer 
Datei in hexadezimaler Form (vgl. 
TYPE). 

ED: „Primitiv"-Editor für Textfiles; 
wird im Microsoft-Handbuch nicht 
erklärt. 

GBASIC: Kombination von altem 
MBASIC und GBASIC (G= HGR- 
Grafik) speziell für die Premium- 
Softcard. Das neue GBASIC mel¬ 
det sich mit „BASIC-80 Rev. 
5.27" und „33.063 Bytes free“. 
Man verfügt also jetzt über etwas 
mehr freien Speicher. Ansonsten 
unterscheidet sich die 5.27-Ver- 
sion nur geringfügig von vorange¬ 
henden Versionen. Beispielsweise 
wurden die Befehle TRON und 
TROFF in TRACE und NOTRACE 
umbenannt (wie bei Applesoft). 
DELETE kann jetzt neben DEL 
zum Löschen von Programmzeilen 
benutzt werden. Dagegen wurden 
die Kassettenbefehle CLOAD und 
CSAVE gestrichen. 

LOAD; Konvertiert eine „HEX"- 
Datei in eine „COM“-Datei. 

MFT: Dateikopierprogramm für 1- 
Drive-Besitzer (vgl. PIP). 

PATCH: Update-Utility für zukünf¬ 
tige CP/M-Versionen. 

PIP; Dateikopierprogramm für 2- 
Drive-Besitzer (vgl. MFT). 

STAT: Zeigt den Status von 
Dateien an usw. 

SUBMIT und XSUB: Erzeugt Be¬ 
fehlsdateien (ähnlich wie EXEC in 
ProDOS, DOS 3.3 und Pascal); 
wird im Microsoft-Handbuch nicht 
erklärt. 


3. Handbücher 

Es werden zwei umfangreiche Lo¬ 
seblattwerke mit jeweils ca. 400 
Seiten Umfang mitgeliefert. Dasei¬ 
ne Loseblattwerk („Package“) ist 
mehr für Anwender und GBASIC- 
Programmierer, das anderer mehr 
für Systemprogrammierer gedacht. 
Ausführliche Stichwortregister er¬ 
leichtern das Nachschlagen. Einige 
der o.g. Utilities werden in den Lo¬ 
seblattwerken nicht erklärt. Des¬ 
halb wird zusätzlich in den USA 
das „CP/M User Guide“ von Hog- 
an und in Deutschland das „CP/M 
Handbuch“ von Zaks mitgeliefert. 

4. Allgemeine Eindrücke 

- Die Premium-Softcard ist dann 
ihr Geld wert (je nach Händler DM 
1000,- bis DM 1500,-), wenn man 
die erweiterte 80-Zeichenkarte 
noch nicht besaß oder für sie einen 
Abnehmer findet, weil beide Kar¬ 
ten nicht gleichzeitig benutzt wer¬ 
den können. 

- Die Bildschirmsteuerung der 80- 
Zeichenkarte als Bestandteil der 
Premium-Softcard ist hervorra¬ 
gend gelöst. Dies mag das nach¬ 
folgende GBASIC-Demo verdeut¬ 
lichen: 

10 GET X$ 

20 FORX = 1000 TO 5000: 

30 PRINTX-t-X; “ - NEXT 
40 PRINT CHR$ (7): REM 35 Sek. 
50 GET X$ 

60 FORX = 1000 TO 5000: 

70 PRINT “ AA-AA ";: NEXT 
80 PRINT CHR$ (7): REM 19 Sek. 
Unter GBASIC (mit 80-Zeichen¬ 
karte) wurden 53 resp. 19 Sekun¬ 
den gemessen. Zum Vergleich 
wurde das gleiche Programm in 
Applesoft mit 80-Zeichenkarte und 
Speedemon-Karte programmiert. 
Die entsprechenden Zeiten waren 
hier 53 resp. 40 Sekunden. Daraus 
folgt, daß die 80-Z/Z-Bildschirm- 
steuerung bei der Premium-Soft¬ 
card von Microsoft etwa doppelt so 
schnell wie bei der erweiterten 80- 
Zeichenkarte von Apple ist, selbst 
wenn man eine Prozessorkarte wie 
die Speedemon einsetzt. Lediglich 
die Accelerator-Karte kann mit der 
Premium-Softcard mithalten. 

- Unter 6502-Betriebssystemen 
(DOS 3.3, Pascal usw.) kann die 
Premium-Softcard wie eine norma¬ 
le, erweiterte 64K-Karte eingesetzt 
werden, z.B. als RAM-Disk usw. 


/ 
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Peeker- 

Sammeldisketten 

Benutzungshinweise 


Kopieren: Die Sammeldisketten 
sind normale 5,25-Disketten 
(140K), die in der Regel im DOS- 
3.3-Format angelegt sind und mit 
COPYA oder einem anderen Dis¬ 
kettenkopierprogramm insgesamt 
dupliziert werden können. Ferner 
kann man mit FID oder einem an¬ 
deren Dateikopierprogramm ein¬ 
zelne Dateien auf eigene Disketten 
überspielen. Beachten Sie, daß die 
Disketten kein Betriebssystem 
enthalten und deshalb nicht boot¬ 
fähig sind. Also erst DOS-3.3-Sy- 
stemdiskette mit PR#6 booten, 
dann mit COPYA (s.a. Disk #2) 
oder FID (s.a. Disk #10) die Dis¬ 
kette ganz oder dateiweise kopie¬ 
ren. Da die Sammeldisketten in der 
Regel „randvoll“ sind, müssen 
Programme, die Datendateien an- 
legen (z.B. TESTGENERATOR), 
stets auf eigene Disketten umko¬ 
piert werden. 

Konvertieren: Einige DOS-3.3- 
Disketten enthalten Pascal- oder 
CP/M-Quellprogramme, die zu¬ 
nächst auf UCSD-Pascal- oder 
CP/M-formatierte Disketten kon¬ 
vertiert werden müssen. CP/M- 
Besitzer verfügen über das Kon¬ 
vertierungsprogramm APDOS. Es 
funktioniert wie folgt: 

- CP/M booten von Drive „A:" 

- APDOS eingeben 

- Sammeldisk in Drive „B:" 

- CAT eingeben 

- FILE=FILE eingeben 

„FILE“ steht für den Namen der zu 
konvertierenden Datei. Näheres 
siehe CP/M-Handbuch. 
UCSD-Pascal-Dateien können mit 
GETDOS (s, Disk #9) konvertiert 
werden. GETDOS funktioniert wie 
folgt; 

- Pascal booten von Drive „4" 

- E(xecute) GETDOS 

- Sammeldisk in Drive „5“ 

- „5“ für Sammeldisk-Unit und 

- „4“ für Pascaldisk eingeben 

- FILE eingeben 

„FILE“ steht für den Namen der zu 
konvertierenden Datei. Warnung: 


GETDOS zeigt nicht den DOS-Ca- 
talog an; man muß also den Na¬ 
men bereits kennen. Ferner muß 
auf der (Kopie der) Sammeldisk 
der Name bereits auf 15 Zeichen 
gekürzt worden sein. 

Übertragungen nach ProDOS kön¬ 
nen mit DOSTOPRO (von „Pro- 
DOS für Aufsteiger, Bd. 2“, Be¬ 
gleitdiskette) erfolgen. Es dürfen 
jedoch nur diejenigen Programme 
übertragen werden, die ausdrück¬ 
lich für ProDOS angegeben sind. 

Implementieren: Nachfolgend 

werden zu jedem Programm bis zu 
7 Informationen gegeben: 

(1 ) Zweck; Charakterisierendes 
Kurzstichwort zum Programm. 

(2) Heft/Seltenzahl: Um das Pro¬ 
gramm sinnvoll nutzen zu können, 
sollte man insbesondere bei den 
unselbständigen Programmen 
(s.u.) den entsprechenden Aufsatz 
und ggf. auch das abgedruckte 
Programm studiert haben. 

(3) Gerätekonfiguration; Erfor¬ 
derliche Hardware, und zwar ll-h = 
Apple II Plus oder Kompatibler: He 
= Apple Ile; llc = Apple llc; Videx 
= 80-Z/Z-Karte beim II-I-; G/K = 
Kleinschreibumrüstsatz beim ll-l- 
(kann oftmals durch Videx-Karte 
ersetzt werden; Großbuchstaben¬ 
umwandlung mit VERSAL, Disk 
#10, möglich): LC = Language- 
Card beim 11 +; 64K-Karte = 80-Z/ 
Z-Karte plus 64K-Zusatzspeicher 
beim Ile. 2-Drive-Programme, 
spezielle Drucker und sonstige Zu¬ 
satzkarten sind gesondert ver¬ 
merkt. 

(4) Betriebssystem: DOS 3.3 

(schließt auch Diversi-DOS ein), 
UCSD-Pascal (1.1, 1.2), ProDOS 
(1.0.2 usw.), CP/M (2.2 usw.). 

(5) Programmstart; Bei selbstän¬ 
digen, d.h. in sich geschlossenen 
Programmen wird der Startbefehl, 
z.B. RUN DEMO, vermerkt. Bei 
unselbständigen Hilfsprogram¬ 
men, die in eigene Programme 
eingebaut werden müssen, steht 


nur das Wort „unselbständig“, da 
deren Anwendung ohne das 
Durchlesen des entsprechenden 
Programmlistings im Peeker nicht 
möglich ist. 

(6) Sonstiges: Besonderheiten 
beim Aufruf oder der Namensge¬ 
bung der Programme. 

(7) Errata: Berichtigungen und Er¬ 
weiterungen mit Angabe der ent¬ 
sprechenden Peeker-Hefte. 


Disk #1 

(DOS 3.3; Heft1 + 2/84) 

T.DISASSEMBLER.65C02 

DISASSEMBLER.65C02 

(1) 65C02-Disassembler; (2) Heft 
1/84, S.14: (3) 11+ (mit LC) oder 
Ile; (4) DOS 3.3; (5) BRUN DIS¬ 
ASSEMBLER.65C02 

T.ACCEL.WAIT 
ACCEL.WAIT 
T.ACCEL.BOOT 
ACCEL.BOOT 
ACCELLC.KOPIERER 
T.ACCEL.LC.KOPIE 
ACCELLC.KOPIE 
T.ACCELROM.KOPIE1 
ACCELROM.KOPIEI 
T.ACCEL.ROM.KOPIE2 
ACCELROM.KOPIE2 
(1) Hilfsprogramme für das Pseu- 
do-ROM der Accelerator Ile; (2) 
Heft 1/84, S, 19; (3) Ile; Accelera¬ 
tor-Karte; (4) DOS 3.3; (5) RUN 
ACCEL.LC.KOPIERER, RUN AC- 
CEL.LC.KOPIE, BRUN ACCEL- 
.ROM.KOPIE1, BRUN ACCEL- 
.ROM.KOPIE2 Z , 3^^/ f 

TURTLE GRAFIK MIT REMS 
TURTLE GRAFIK OHNE REMS 

(1) Turtle-Grafik-SImulierung als 
Applesoft-Programm; (2) Heft 1/ 
84, S. 26; (3) II + , Ile oder llc; (4) 
DOS 3.3 oder ProDOS; (5) RUN 
TURTLE GRAFIK OHNE REMS; 
(6) TURTLE GRAFIK MIT REMS 
dient nur zur Veranschaulichung, 

y 


sollte jedoch nicht gestartet wer¬ 
den. Weitere Übungsbeispiele In 
Heft 2/84, S. 10. 

DOUBLE.LORES.SOFTSWITCH- 

.DEMO 

DOUBLE.LORES.APPLESOFT- 

.DEMO 

AMPER.DOUBLE.LORES.DEMO 

T.AMPER.DOUBLE.LORES 

AMPER.DOUBLE.LORES 

T.DOUBLE.LORES 

DOUBLE.LORES 

(1) Demos und Applesoft-Erweite- 

rung für Double-Lores; (2) Heft 1/ 

84, S. 32; (3) Ile (mit 64K-Karte) 
oder llc; (4) DOS 3.3 oder Pro- 
DOS; (5) RUN DOUBLE.LORES- 
.APPLESOFT.DEMO, RUN AM- Q 
PER.DOUBLE.LORES.DEMO 

HIRES 

T.PRINTHIRES 

PRINTHIRES 

(1) Programm zur Erstellung von 
Grafik-Hardcopies; (2) Heft 1/84, 

S. 40; (3) II+ (mit G/K) oder Ile; 
Parallel-Interface und Epsondruk- 
ker der Serie FX, RX oder MX; (4) 
DOS 3.3 oder ProDOS; (5) RUN 
HIRES; ( 6 ) Erweiterete Version auf 5 
Disk #5 (SUPERDUMP). 

DHGR.APSOFT.DEMO 

AMPER.DOUBLE.HIRES.BAS 

AMPER.DOUBLE.HIRES 

T. AMPER.DOUBLE.HIRES 
DHGR.LINEPLOTTER 

(1) Demos und Applesoft-Erweite- 
rung für Double-Hires; (2) Heft 2/ 

84, S. 24; (3) Ile (mit 64K-Karte) 
oder llc; (4) DOS 3.3 oder Pro- 
DOS; (5) RUN AMPER.DOUBLE-^.//) 
.HIRES.BAS 

INSTRING.TEST 

INSTRING.OBJ 

T.INSTRING.OBJ 

INSTRING.LISA.SOURCE 

(1) INSTRING-Befehl für Ap¬ 
plesoft; (2) Heft 2/84, S. 40; (3) 

II + , Ile oder llc; (4) DOS 3.3; (5) 
RUN INSTRING.TEST ^(4 
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LOESCHEN.EINES.ARRAYS 

(1) Löschen eines Arrays als Ap- 
plesoft-Unterprogramm: (2) Heft 
2/84, S. 51; (3) il+ (mit G/K), Ile 
oder llc; (4) DOS 3.3 oder Pro- 
DOS; (5) RUN LOESCHEN¬ 
.EINES.ARRAYS /Z 

ULTRATERM.ENGLISCH 

ULTRATERM.DEUTSCH 

(1) Zeichensatz-Files für Ultra- 
Term-Video-Karte; (2) Heft 2/84, 
S. 60; (3) ll-h oder Ile; UltraTerm- 
Karte; EPROM-Brenner; (4) DOS 
3.3 oder ProDOS 

PRIMZAHLEN.OVERMEYER 

PRIM.OBJO 

PRIM.OBJ1 

PRIM.TEST 

PRIM.TOOLKIT.SOURCE 

(1) Primzahlenprogramm (Haupt¬ 
gewinn aus Peeker, Heft 1/84, S. 
58); (2) Heft 2/84, S. 70; (3) ll-h, 
Ile oder llc; (4) DOS 3.3 oder Pro- 
DOS; (5) RUN PRIMZAHLEN.¬ 
OVERMEYER y(3 


Disk #2 

(DOS 3.3; Heft1 



-2/85) 


T.RAMDISKLC 

RAMDISKLC 

(1) 16K-RAM-Disk für LC; (2) Heft 
1-2/85, S. 8; (3) ll-F (mit G/K und 
LC), Ile oder llc; (4) DOS 3.3; (5) 
BRUN RAMDISKLC; (7) Patch in 
Heft 6/85, S. 69 (Leserbriefe). Z 

T.IBS.RAMDISKDRIVER 

IBS.RAMDISKDRIVER 

T.AP20.RAMDISKTEST 

AP20.RAMDISKTEST 

(1) Assemblerlisting des RAM- 
Disk-Drivers der AP 20 mit Test¬ 
programm; (2) Heft 1-2/85, S. 18; 

(3) ll-H oder Ile; RAM-Karte AP 20 
der Firma IBS; (4) DOS 3.3; (5) 
BRUN AP20.RAMDISKTEST 2 


T,QUICKCOPY 

QUICKCOPY 

(1) Diskelten-Kopierprogr^rtTun- 
terPfoDOS; (2) S. 22 ; 

[3) Ile (mit 64K-K^) oder llc; 2 
Laufwerke^jJAfProDOS 1.0.1; (5) 
BBUN^£)UICKCOPy; (6) fürande* 
re. Prö DOS -Versionen mit 0F2C:60 

-^purprüfroutlnedesakllvierei>'(3,S, 
27. Zeile 954). 
QUICKCOPY.PUFFER 
(1) Programm zur Belohnung der 
Puffergrößen für QJUiCKCOPY; (2) 
Heft 1-2/85, S,2^: (3) Ile oder llc; 

(4) ProDOS, jede Version; (5) RUN 
QUICKCtPY.PUFFER 
PRQDOS.COPYA C 
T.PRODOS.COPYOBJ 
PRODOS.COPYOBJ 


(1) Kopierprogramm unter^ProDOS 
für ein Laufwerk; {2y FTeft 1 -2/85, 

S. 22; (3) llt^(mlt LC), Ile oder llc; 

(4) ProDOS 1.0.1; (5) RUN PRO- 
DOS:COPYA 

PRODOS.PATCH 

(1) Patch-Programm zur Anpas¬ 
sung von ProDOS an Apple-K^m- 
patible; (2) Heft 1-2/8&><3) ll-h 
oder Kompatible: (^'■DOS 3.3 mit 
ProDOS-VersioA'i'O.I vom 1. Jan. 
84; (5) RUN^PBODOS.PATCH; (6) 
Patch-Prögramm läuft unter DOS 
3.3:^(7) folgende Zeile muß geän¬ 
dert werden: 570 CMD = 2; ... 

T. APPLESOFT.FRE ^ 

T.LC.FRE 

LC.FRE 

FRE.TEST 

(1) Schnelle Garbage-Collection- 
Routine mit Assemblerlisting der 
Applesoft-Garbage-Collection; (2) 
Heft1-2/85, S.32;(3)ll-E(mit LC), 
Ile oder llc; (4) DOS 3.3; (5) RUN 
LC.FRE.TEST 

T.RAM.FRE 

RAM.FRE 

(1) Schnelle Garbage-Collection 
ohne LC; (2) Heft 1-2/85, S. 32; 
(3) ll-h, Ile oder llc; (4) DOS 3.3; 

(5) unselbständig: (7) Berichtigung 
in Heft 8/85, S. 70; neue Version 
(RAM.FRE.NEU) auf Sammeldisk 
#8 

T.SCHIRMDISK 

SCHIRMDISK.LISA.SOURCE 

SCHIRMDISK 

(1) Programm zur Abspeicherung 
des 40-Z/Z-Bildschirms auf Dis¬ 
kette; (2) Heft 1-2/85, S. 42; (3) 
ll-h, Ile oder llc; (4) DOS 3.3; (5) 
BRUN SCHIRMDISK ^ 

T.VIDEXT 

VIDEXT.LISA.SOURCE 

VIDEXT 

(1) Programm zur Abspeicherung 
des Videx-Bildschirms auf Diskette 
(für Ile s. Disk #4); (2) Heft 1-2/ 

85, S. 42; (3) ll-h mit Videx; (4) 

DOS 3.3; (5) BLOAD VIDEX; 
CALL 768 S 

GETPAS 

T.GETPAS.ASS 

GETPAS.ASS 

(1) Konvertierung von UCSD-Pas- 
eai- In DOS-Texifiles; (2) Heft 1-2/ 

86. S. 68; (3) Jt-F, Ile oder llc; 2 
Laufwerke In Slot 6; {4} DOS 3.3; 

(5) RUN GETPAS; (6) GETPAS¬ 
.ASS wird vom B/\^C-Programm 
gepokt 

GETDOS,PASCAL,SOUF}0Er" 

(1) Konvertierung v^m'^DOS- in 
UCSD-PascaPJ^Mes: (2) Heft 1- 
2/85, S^^TOf Erläuterung s. Einlei- 
tunp;>^S)s.a. Disk #9. 


COPYDUPDIR.PASCAL- 

.SOURCE 

(1) Hilfsroutine zum Zero-Befehl; 

(2) Heft 1-2/85,>-rÖ.; (3) ll-h (mit 
LC), Ile oderHIc; (4) UCSD-Pascal 
1.1/1.^ (5) E(xecute) COPYDUP- 
DJRyle) s.a. Disk #9. 

PRODOS.EDITOR.MACROS 

(1) Makro-Definitionsprogrammjgr 
Besitzer des PRODOS^DITOR 
(Hüthig Software Servipef; (2) Heft 
1-2/85, S. 86; (5)>üfArbeitskopie 
des PRODC^EOITOR unter dem 
Namen EQI-TOR,MACROS kopie¬ 
ren u^-^ann mit RUN EDITOR- 
-MACTOS starten. 


(^M^eft 1-2/85) 

PASS.BAS 
MENUE.BAS 
HELP.BAS 
A.BAS bis N.BAS 

(1) Lohn- und Einkommensteuer- 
Programm für 1984; (2) Heft 1-2/ 
85, S. 45; (3) 11+ (mit Videx), Ile; 
Z80-Karte: (4) CP/M 56; (5) nach 
Starten von MBASIC RUN 
“PASS“ eingeben: (6) das einzu¬ 
gebende Passwort lautet 
„PEEKERDUSKE“ (entfällt bei 
späteren Exemplaren der Disk #3) 


Disk #4 

(DOS 3.3; Hefts + 4/85) 

TESTGENERATOR 

BAHNFAHRT 

ZU 

TUN.UND.SOLLEN 

IRGEND 

SAETZE 

(1) Übungsprogramm für Leg¬ 
astheniker; (2) Heft 3/85, S. 22; (3) 
11+ (mit G/K). Ile oder llc; (4) DOS 
3.3; (5) RUN TESTGENERATOR; 

(6) Programm zuvor auf nicht 
schreibgeschützte Datendiskette 
kopieren, /I 

MULTIPRECISION 

(1) Höhere Rechengenauigkeit bei 
den Grundrechenarten in Ap¬ 
plesoft; (2) Heft 3/85, S. 32; (3) 
II + , Ile oder llc; (4) DOS 3.3 oder 
ProDOS; (5) RUN MULTIPRECI¬ 
SION Z 

T.WS.TRANSFER 

WS.TRANSFER 

T.WS.TRANSFER.Z 

WS.TRANSFER.2 

(1) Konvertierung von CP/M- 
Wordstar- in DOS-3.3-Textdatei- 
en; (2) Heft 3/85, S.35; (3) II + , Ile 
oder llc; 2 Laufwerke; (4) DOS 
3.3; (5) BRUN WS.TRANSFER; (6) 

3 


WS.TRANSFER.2 ist eine noch¬ 
mals verbesserte Version, die nicht 
mehr im Peeker abgedruckt wurde 

GETCPM 

(1) Konvertierung von CP/M- in 
DOS-3.3-Textdateien: (2) Heft 3/ 
85, S.43;(3)ll+(mitG/K), lleoder 
llc: 2 Laufwerke: (4) DOS 3.3; (5) 
RUN GETCPM: (6) kann für 1 Lauf¬ 
werk umgeschrieben werden (s. 
Heft) Z 

PRIM.O.SC.SOURCE 

PRIM.O.BIN 

PRIM.1.SC.SOURCE 

PRIM.1.BIN 

PRIM.FP 

(1) Primzahlenprogramm (2. Platz 
aus Peeker, Heft 1/84, S. 58); (2) 
Heft 3/85, S.56; (3) II + , Ile oder 
llc; (4) DOS 3.3; (5) RUN PRIM.FP 

z 

ACCELERATOR.ABSTELLEN 

(1) Programm zum Abstellen der 
Accelerator-Karte (vgl. Disk #1); 

(2) Heft 3/85, S. 66; (3) Ile; Acce¬ 
lerator-Karte; (4) DOS 3.3 oder 
ProDOS; (5) RUN ACCELERA¬ 
TOR.ABSTELLEN 


T.WiLDCARD.TESTI 

WiLDCARD.TESTI 

T.WiLDCARD.TESTZ 

WiLDCARD,TEST2 

(1) Testprogramme für Wildcard- 
Plus-Karte; (2) Heft 3/85, S. 72; 

(3) 11+ (mit Einschränkungen) oder 
Ile; Wildcard-Plus-Karte; (4) DOS 
3.3; (5) unselbständig 

XPLOT.DEMO 

XPLOT.ROUTiNE 

T.XPLOT.ROUTiNE 

(1) Implementierung des XPLOT- 
Befehls für Applesoft; (2) Heft 4/ 
85, S. 14; (3) 1I + , Ile oder llc; (4) 
DOS 3.3; (5) RUN XPLOT.DEMO 

MENUE.GENERATOR 

(1) Programm zur Erstellung von 
Bildschirm-Menüs; (2) Heft 4/85, 

S. 20; (3) 11+ (mit G/K), Ile oder 
llc; (4) DOS 3.3; (5) RUN MENUE- 

.GENERATOR P 

T. MACROS.65C02 

(1) Makro-Bibliothek für ältere Big- 
Mac/Merlin-Versionen zur Simu¬ 
lierung der 65C02-Befehle: (2) 
Heft 4/85, S. 30; (3) II + , Ile oder 
llc; (4) DOS 3.3; Big-Mac oder 
Merlin; (5) unselbständig 

TERMINAL 

TERMINAL.B 

T.TERMINALB 

(1) Terminal-Programm für Mail- 
boxen; (2) Heft 4/85, S. 34; (3) 11 + 
oder Ile; Serielle Schnittstelle mit 
6850-Baustein; (4) DOS 3.3; (5) 
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RUN TERMINAL: (7) Anpassung 
für Super-Serial-Card in Heft 6/85, 
S. 72 (Disk #6) ^ 

CAT.ARRAY 

CAT.SAVER 

EINTRAG.SUCHER 

EINTRAG.ANALYSE 

PRODOS.READER X 

t.prodos.reader.objX 

PRODOS.READER.OBJ^ 

(1) Beispielprograijmle für Pro- 
DOS; (2) Heft S. 41; (3) ll-H 
(mit G/K und^), Ile oder llc; (4) 
ProDOS; ß) RUN CAT.ARRAY; 
RUN CÄT.SAVER; RUN EIN- 
TRA^UCHER; RUN EINTRAG- 
.^LYSE; RUN PRODOS- 
<-READER 

MOUSESTUFF.PASCAL- 

.SOURCE 

MOUSE.ASS.PASCAL.SOURCE 

TESTMOUSE.PASCAL.SOURCE 

DRAWMOUSE.PASCAL- 

.SOURCE 

(1) Implementierung der Mai^s'in 
UCSD-Pascal 1.1/1.2 (s.a/Disk 
#9); (2) Heft 4/85, S. ^(3) ll-H, 
Ile oder llc; Appl^Maus; (4) 
UCSD-Pascal; (Sf E(xecute) 
TESTMOUSE ^er E(xecute) 
DRAWMOUS^ (nach Installie¬ 
rung); (7) ,^DIRECT .WORD 0“ 
(S. 57) lochen und statt dessen 
zu Begipfi „INDIRECT .EQU 04“ 
einset^n, falls Mausprogramm mit 
alteiji 6502-Prozess9r benutzt 
wird. 


T.SLOTRAMDISK 

SLOTRAMDISK 

SLOTRAMDISK.HELLO 

(1) RAM-Disk-Driver für Balfer-In- 
terface; (2) Heft 5/85, S. 12; (3) 
Ile; 64K-Karte; Balfer-Interface; 
(4) DOS 3.3; (5) INIT SLOTRAM¬ 
DISK.HELLO (danach SLOTRAM¬ 
DISK auf die neue Diskette ko¬ 
pieren) 

PLOT.2.0 

T.PLOT.B 

PLOT.B 

PLOT.PROTECTOR 

(1) Programm zur Darstellung ma¬ 
thematischer Funktionen; (2) Heft 
5/85, S. 17; (3) 11+ (mit G/K), Ile 
oder llc; (4) DOS 3.3; (5) EXEC 
PLOT PROTECTOR; (7) Korrektur 
der Tippfehler (Disk #5 war in Ord¬ 
nung) in Heft 9/85, S. 69 A 

T.CONVERT560 

CONVERT560 

CONVERT560.DEMO 

(1) Wandelt ein Double-Hires-Bild 
in zwei normale Bilder um; (2) Heft 
5/85, S. 25; (3) Ile (mit 64K-Karte) 
oder llc; (4) DOS 3.3; (5) RUN 
CONVERT.DEMO (nur in Verbin¬ 
dung mit Epson FX-80/8132W) 


(1) Disassembler für „geheime“ 
6502-Opcodes; (2) Heft 5/85, S. 
31; (3) 11+ oder Ile; (4) DOS 3.3; 
(5) BRUN EDA 3 


INALL.DATA 

(1) Eingabe von beliebigen Strings 
für Applesoft; (2) Heft 4/85, S. 70 
und 5/85, S. 50; (3) II + , Ile oder 
llc; (4) DOS 3.3 oder ProDOS; (5) 
RUN INALL.DATA 

SCREEN80.DATA 

SCREEN80.SAVER 

(1) Programm zum Ausdrucken 
(SCREEN80.DATA) oder Abspei¬ 
chern (SCREEN80.SAVER) des 
lle/llc-80-Zeichenbildschirms (für 
Videx s. Disk #2); (2) Heft 4/85, S. 
33 und 76; (3) Ile oder llc; (4) DOS 
3.3 oder ProDOS; (5) RUN 
SCREEN80.DATA; danach CALL 
768 (Drucker in Slot 1 einschal¬ 
ten); RUN SCREEN80.SAVER 


Disk #5 

(DOS 3.3; Heft 5/85) 


T.FM.BSP 

FM.BSP 

(1) Beispiele zum Aufruf des File- 
Managers; (2) Heft 5/85, S. 6; (3) 
II+, Ile oder llc; (4) DOS 3.3; (5) 
unselbständig; vgl. Disk #10 (AS- 
.FILER) 


TRANSCEND.PASCAL.SOURCE 

(1) Einbindung von transzenden¬ 
ten Funktionen in^CSD-Pascal 
1.1/1.2 (s.a. Dis]r#9); (2) Heft 5/ 
85, S. 35 m^+, Ile oder llc; (4) 
UCSD;Pä^al; (5) als Unit mit Seg- 
m^ni^Nr. 29 im SYSTEM.LIBRARY 
integrieren 

T.BLOCKTRACER 

BLOCKTRACER 

T.BLOCKTRACER1 

BLOCKTRACER1 

(1) Tracer für Blockzugrift unter 
ProDOS 1.0.1; (2) Hefr5785, S. 
51; (3) 11+ (mit La),He oder llc; (4) 
ProDOS 1.0.>r(5) BRUN BLOCK- 
TRACERr(6) BLOCKTRACER1 für 
RAiyt-Disk bei Ile (mit 64K-Karte) 
oder llc 

FORMAT.LC 

FORMAT.LC.START ^ 

(1) Formatierung von Diske^j+on- 
ter ProDOS 1.0.1; (2}>tefrg/85, S. 
56; (3) 11+ (nniti^O)C7le oder llc; (4) 
ProDOg^-HTÖH; (5) RUN FOR- 
jyiA?rCC. START 

T.DISKDRIVER.DEMO 

DISKDRIVER.DEMO 

(1) Demo für direkten Zugriff auf 
ProDOS-Disk-Driver; (2) Heft 5/ 


Brainware 

Ihr Experte in Expertensystemen 
Consulting • Schulung • Software 


ARTIFICIAL 
INTELLIGENCE 
FÜR APPLE II und 
MACINTOSH 


c 

LISP 

PROLOG 
MODULA 2 
IDEA PROCESSING 
EXPERT SYSTEM SHELLS 


Fordern Sie unseren Katalog an. 


Brainware GmbH 
Kirchgasse 24 
6200 Wiesbaden 
Tel: 0 6121-372011 


85, S. 51; (3) 11+ (mit LG), Ile oder 
llc; (4) PropDS'T.D'.l; (5) BLOAD 
DISKDRIVER.DEMO; CALL 768 

RANDOM.DEMO 

(1) Echte Zufallszahlen für Ap¬ 
plesoft; (2) Heft 5/85, S. 69; (3) 
II+, Ile oder llc; (4) DOS 3.3; (5) 
RUN RANDOM.DEMO; (6) Test¬ 
programm erzeugt 500.000 Zu¬ 
fallszahlen und läuft deshalb meh¬ 
rere Stunden. + 

COLUMN80.DEMO 

(1) Beispiel zur Lösung des HTAB- 
Problems beim lle/llc; (2) Heft 5/ 
85, S. 69; (3) Ile (mit 80 Z/Z) oder 
llc; (4) DOS 3.3 oder ProDOS; (5) 
RUN COLUMN80.DEMO ^ 

SUPERDUMP.EPSON 

SUPERDUMP.IMAGEWRITER 

SUPERDUMP.BILD 

T.SUPERDUMP 

SUPERDUMP 

EPSON 

IMAGEWRITER 

(1) Hardcopy-Programm für im 
Text spezifizierte Rechner/Druk- 
ker/lnterfaces; (2) Heft 6/85, S. 



IMB-PC-Systemeinheit + Laufwerk 
IMB deutsche DIN-Taslatur 
IBM-Bildschir ‘ ' 


APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 
Motherboard II48K leer, durchkonl. mit Lölstopplack 
Motherboard II w.o. jedoch 64 K leer 
M-board II48K, gesockelt, vollbest. + gepr 
Motherboard II 64K gesockelt, vollbesi.+gepr. 
M-board II 64K + Z80 CPU, gesockelt, v. best. + gepr. 
M-board Ile 64K vollbeslückt + gepr. 

APOLLO II Kunststoff-Leergehäuse 
APOLLO II Gehäuse Incl. Funkt.-Tast. 


_ ;K-RAM,Z80/CPU-. Controller DOS 3.3, 
Karallel-Oruckerkarte, Ser. Int. V24,80Z/24Z-Karte 
PAL-Modulatorkarte, je 

Entwicklungslochraster-Leerplatine durchkontakliert 

16K-Speicher-Kai1e geprüft 

APPLE orig. 16K-Language Karte gepr. 

Z-80 CPU-Karte geprüft 
Controller DOS 3.3-Karte geprüft 
Auto-Controller DOS 3.2/3.3-Karte gepr. 

ErphI AFDC 2 Controller + Autopatch Softw. + Handbuch 
Parallel-Drucker-Karte geprüft 
Par.-Orucker-Grappler comp. Leerplatine 
Par.-Drucker Karte-Grappler comp, geprüft 

Seriell-Interface-Karte V24 geprüft 
Super-Seriell Leerkarte 
Super-Seriell-Inlerface Karte gepr. 
80-Zeichen/24-Zeilen-Karte geprüft 
80Z/24Z-Karte + Softswitch-Schalter Leerplatine 
80Z/24Z-Karte + Soltswitch-Schalter geprüft 
80Z/24Z-SoftmHch Karte gepr. für Ile 
80Z/24Z+64K-Ram+Softsw. Leerkarte I. Ile 
80Z/24Z+64K-Ramt.Softsw.-Karte best+gepr. f. Ile 
IEEE-488 Int. Karte gepr 
PAL-Modulator/Color-Karte geprüft 
PAL-RGB-Color Karte gepr 
128K-Speicher-Leerkarte 
128K-Speicher-Leerkarte + Software + Manual 
128K-Speicher-Karte + Software geprült+Manuai 
256K-Speicher Leerkarte 
256K-SpejcherLeerkarte+Software+Manual 
256K-Speicher-Karte + Software geprült+Manuai 
Maus incl. Software 

EPROM-Bumer (2708/16/32/64) geprüft 

6522-VIA Karte geprüft 

Clock Karte geprüft 

Speech Karte geprüft 

Musik Karte geprüft 

Wild Karte geprüft 

AD/DA-8Blt Karte gepr. 

Accelerator Karte gepr. 

Modem Euronorm-Karte gepr + Software + Man. 
UHF/TV-Modulator universell 
Lüfter anclipsbar (220 V) 

Dataphon s21d Akustikkopoler-FTZ mit RS 232/V24 Anschi. 



Kab. DOS 3.3 +ProDOS or 


APPLE-Disk//Laufwerk + Cor 
APPLE-Disk//(2. Laufwerk) orig. 

Epson-Duodisk II F-Slimline 2x143 KB mit Geh. 
Disk//+Confr. + Kabel DOS 3.3 (Siemens) im Geh. 
Disk//(2. Laufwerk, Siemens) im Geh. 

Disk//F + Contr. + Kab. DOS 3.3 (1/2 Hohe) Im Geh. 
Olsk//F (2. Laufwerk. 1/2 Hohe) I. Geh. 

Erphi DuoDisk 1,2 MByte Incl. Netzteil + Contr. 



Epson LX 80 F/T, 8 BIt/par. 100Z/S. 
EPSON GX 80+, 

EPSON RX 80+. 8bit/parallel 
EPSON RX 80F/T+, 8bit/parallel 
EPSON RX 100+, 8biVparallel 
EPSON FX 8SF/T+, 8bit/parallcl 
EPSON FX10S+, 8bit/parallel 
EPSON LQ1S0O+, 8blt/parallel 
EPSON Traktoraulsatz für FX 80 
APPLE/EPSON-Druoker Graphic-Inte 
tX 80/82, FX/RX 80 Speziallar 



Zenith ZVM123 gr. 12" oder Zenith ZVM or. 12" 15 MHz 
Zenith ZVM 124 gr. 12" 22 MHz IBM-Comp. 

SANYO DM 221212" orange 15 MHz 



3M-Scotch 5W' FlUssig-Reinigungsset (2 Disk.) zweiseitig 
BASF S'A" Reinigungsdiskette einseitig 

5'/«" Disketten-Archivbox für 10 Disks (1 St./10 St.) 4, 

5V<" Disketten-Archivbox für 15 Disks 3M 
S'/4" Disk-Karteikasten Kunststoff (ca. 80 Disk) 

5'/*" Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 
S’A" Disk-K.K.Rauchglas, abschlieBb. (f. ca. 80-100 Disks) 

2000 Bl. Tabpaprer (24 cm x 12" einf.) weiß oder grün/weiß perf. 
4000 Et-Aulkl. doppelr (107 x 36 mm auf 240 x 12" perf. Trägerp.) 
16000 Etiketten-Aufkleber wo 

— imauf 125x12"perf.Tr- ' 
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22; (3) II + , Ile oder llc; Drucker; 
(4) DOS 3.3; (5) RUN SUPER- 
DUMP.EPSON (SUPERDUMP.- 
IMAGEWRITER): (7) Anpassung 
für llc in Heft 8/85, S. 50 ^ 


MACMONITOR 

Der MACMONITOR aus Heft 5/85, 
S. 41, ist noch als 3,5-Zoll-Diskette 
erhältfich (solange Vorrat reicht) 


Disk #6 

(DOS 3.3; Heft 6/85) 

HELLO 

ASMDIV 

(1) Installierung von Diversi-DOS 
2-C; (2) Heft 6/85, S. 72; (3) II + , 
Ile oder llc; (4) DIversi-DOS 4-C; 
(7) Installierung unter DOS 3.3 ist 
in Heft 10/85, S. 69 (Leserbrief) 
beschrieben 


CURSOR1 

T.CURSOR1 

CURSOR2 

T.CURSOR2 

LINIE 

T.LINIE 

VIERECK 

T.VIERECK 

BOX 

T.BOX 

HINTERGRUND 

T.HINTERGRUND 

PAGE.SWAP 

T.PAGE.SWAP 

(1) Hilfsprogramme für Grafik-Edi¬ 
tor; (2) Heft 6/85, S. 6; (3) II + , Ile 
oder llc; (4) DOS 3.3; (5) unselb¬ 
ständig; (7) Hinweis zu den Curso¬ 
ren in Heft 10/85, S. 63 


WANDERNDER.STRICH 
KOMPRESSOR.DEMO 
KREIS.1 
KREIS.2 
KREIS.3 
FLIPPER 
T.FLIPPER 
KOMPRESSOR 
T.KOMPRESSOR 
(1) Pseudo-Double-Hires; (2) Heft 
6/85, S. 16; (3) ll-K (Ile oder llc); 
(4) DOS 3.3; (5) RUN WANDERN¬ 
DER.STRICH: RUN KOMPRES¬ 
SOR.DEMO; RUN KREIS.1; RUN 
KREIS.2: RUN KREIS.3 

/\ y y If \ 

OLYMPIA 

T.OLYMPIA 

(1) Hardcopy-Programm für Ty¬ 
penraddrucker; (2) Heft 6/85, S. 
34; (3) 11+ oder Ile; Olympia ESW 
100 RO; (4) DOS 3.3; (5) BLOAD 
OPLYMPIA; CALL 32768 / 


FOURIER.MAIN 

FOURIER.SYN 

FOURIER.SPEC 


(1) Programm zur Fourier-Analyse; 

(2) Heft 6/85, S. 38; (3) 11+ (mit 

Videx), Ile oder llc; Drucker mit 
Grafik-Interface; (4) DOS 3.3; (5) 
RUN FOURIER.MAIN; (7) in Heft 
9/85, S. 69 sind 20 Zeilen nachge¬ 
tragen, die im Listing (nicht auf 
Diskette) fehlten ^ 


AS.ERWEITERUNG 

T.AS.ERWEITERUNG 

AS.ERW.PROSTART 

AS.ERW.PRO 

T.AS.ERW.PRO 

(1) Applesoft-Erweiterungen; (2) 
Heft 6/85, S. 43; (3) 1I + , Ile oder 
llc; (4) DOS 3.3 oder ProDOS; (5) 
BRUN AS.ERWEITERUNG; (6) für 
ProDOS gilt RUN AS.ERW.PRO¬ 
START 

INSTALL.PASCAL.SOURCE 

RAMDISK94.PASCAL.SOURCE 

INIT.PASCAL.SOURCE 

(1) RAM-Disk-Driver für UCSD- 
Pascal 1.1; (2) Heft 6/85, S. 4ßr'(3) 
Ile (mit 64K-Karte) oder^/llc; (4) 
UCSD-Pascal 1.1, ni^+l28K-1.2! 
(5) Disk #9 enth^t'Tertig assem- 
blierte Version^/die mit E(xecute) 
INSTALL gestartet wird; (7) im Li¬ 
sting (nichrfauf Disk #6) wurde ein 
Teil w^geschnitten, der in Heft 7/ 
85fS. 52 nachgetragen wurde 


RAMDISK.INIT.DOS 

AUXDRIVER 

T.AUXDRIVER 

MOVEDRIVER 

T.MOVEDR]VER 

RAMOISK.FORM ATTER' 

T.RAMDISK.FORMÄTTER 

(1) RAM-Disk^Önver für CP/M 2-2; 

(2) HefL.^5. S, 56; (3) Ile mit 
64K->(^e; (4) CP/M 56K (nicht 
60K oder 64K0; (5) s- Hefl 


SOLITAIRE.START 

SOLITAIRE 

SOLITAIRE.B 

T.SOLITAIRE.B 

(1) Programm zur Lösung des Soli- 
taire-Problems; (2) Heft 6/85, S. 
64; (3) 11+ (mit G/K), Ile oder llc; 
(4) DOS 3.3; (5) RUN SOLITAIRE¬ 
.START i 0 



(DOS 3.3; Heft 7/85) 


PYRAMID.PITTY 

T.PYR.PITTY.O 

T.PYR.PITTY.1 

PYR.PITTY.O 

PYR.PITTY.1 

PYR.PITTY.BACK 

PYR.PITTY.SHAPE 

(1) Ein Reaktionsspiel; (2) Heft 7/ 

85, S. 6; (3) II + , lle-oder llc (keine 


externe Tastatur); (4) DOS 3.3 
oder ProDOS: (5) RUN PYRAMID¬ 
.PITTY 


Disk #8 ' ^ y 

(DOS 3.3; Heft 8/85) " 


T.MEGAWARP.REL 

MEGAWARP.REL 

T.MEGAWARP.9900 

MEGAWARP.9900 

T^SPEEDTEST 

SPEEOTEST / 

(1) RAM-Disk-Testprp^mme für 
die AP33 von IBS;.® Heft 7/85, S. 
8; (3) fl+ odeNI^ AP33-Karte: (4) 
ProDOS: (§)'ynse!bständ!g: BRUN 
INSTALIBS-Diskette); dann 
BRUJSK" MEGAWARP.9900 {oder 
MpGAWARP.REL): (6) Beschrer- 
ßijng Im Heft beachten. 


HELLO 

ASMDIV 

(1) Installierung von Diversi-DOS 
/4-C: (2) Heft 8/85, S. 68; (3) II + , 
Ile oder llc; (4) DOS 3.3; (5) RUN 
HELLO; (6) Bitte $30,00 an DSR 
überweisen. /l, 


DISKTEST 

DISKTEST.START 

T.DISKTEST 

(1) Testprogramm für Disketten 
und Laufwerke; (2) Heft 8/85, S. 6; 

(3) 11 + , Ile oder llc; (4) DOS 3.3; 
(5) EXEC DISKTEST.START 


FORMAT 

T.FORMAT.OBJ 

FORMAT.OBJ 

(1) Formatierungsprogramm für bis 
zu 80 Spuren; (2) Heft 7/85, S. 20; 

(3) 11+ (mit G/K), Ile oder llc; (4) 
DOS 3.3 oder ProDOS; (5) RUN 
FORMAT; (7) Optimierung der 
Armbewegung im Heft 9/85, S. 69 

BITEDITOR 

NORMAL 

FETT 

FETT.INVERSE 

(1) Editor zur Erstellung eines Zei¬ 
chensatzes: (2) Heft 7/85, S. 29; 
(3) II+ mit Videx; EPROM-Bren- 
ner; (4) DOS 3.3; (5) RUN BITEDI¬ 
TOR; (6) NORMAL, FETT und 
FETT.INVERSE sind Zeichensatz- 
Files vS 


PAST0PR0.1D 
PASTOPR0.2D 
T.PASTOPRO.O 
PASTOPRO.O / ^ 

(1) Übertragung von UCSD-PaS' 
cal-Textdateien nach ProDOS; (2) 
Heft 7/85, S. 62 (Pascal-Preisaus¬ 
schreiben); (mit LC), de 

oder de; 14) ProDOS; (5) RUN 
PASTOpf^OJD (oder PASTO- 
PRa2D für 2 Laufwerke): (5) PAS¬ 
TOPRO.O wird durch PASTOPRO 
/uto malisch gepokl 2^ 


KOPY 

BATCHKOPY 

T.GETSETINFO 

GETSETINFO 

BILDTEST 


(1) Datei-Kopierprogramm für Pro- 
DOS; (2) Heft 8/85, S. 18; (3) II + 


(mit LC), Ile oder llc; (4) ProDOS, 
BASIC.SYSTEM 1.1; (5) RUN KO¬ 
PY oder -RUN BATCHKOPY; (6) 
GEJSETINFO wird von KOPY/ 
bXtCHKOPY gepokt, BILQTEST 
dient nur als Demo 


T.BOX.COPY 

BOX.COPY 

T.HSCRN 

HSCRN 

GRAF.QUATTR0.1 

(1) Hilfsprogramme für Grafik-Edi¬ 
tor; (2) Heft 8/85, S, 24; (3) II + , lie 
oder llc; (4) DOS 3.3; (5) unselb¬ 
ständig: (6) GRAF.OUATTR0.1 ist 
eine Zus'^'^menstellung aller Graf- 
quattro-Routinen 


T.DOUBLE.LORES 

DOUBLE.LORES 

DOUBLE.LORES.DEMO 


(1) Double-Lores-Applesoft-Er- 
weiterung: (2) Heft 8/85, S. 32; (3) 
Ile (mit 64K-Karte) oder llc; (4) 
DOS 3.3; (5) RUN DOUBLE.LO¬ 
RES.DEMO 


T.CONVERT 

CONVERT 

(1) Umwandlung von Hex- (32 
Bits) in FP-Zahlen; (2) Heft 7/85, 
S. 69; (3) 1I + , Ile oder llc; (4) DOS 
3.3 oder ProDOS; (5) BRUN CON¬ 
VERT ^ 


T.VORLESER 

VORLESER 

(1) Akustische Ausgabe von Hex- 
Dumps mit der Sprachkarte 
S.A.M.; (2) Heft 7/85, S. 71; (3) 
11+ oder Ile; Sprachkarte S.A.M.; 

(4) DOS 3.3; (5) BRUN VOR¬ 
LESER ^ 


AD-START.CMD 

HMENUE.CMD 

AUFNAHME.CMD 

AUFMASKE.CMD 

AUSMASKE.CMD / 

EDITFNAM.CMD / 

SUCHFNAM.C^D 

SUCHVNAM,OMD 

SUCHBEMElCMD 

SCHREIBÄ.CMO 

SCHREiBLCMD 

LOESCHXMD 

SUÖH.CMO 

(1') Adreßverwaltungsprogramm 
unter dBase; (2) Heft 8/85, S. 40; 
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grafisch arbeiten? 


Das HacTaMelt von 
Summagraphics 
mit entsprechender 
Mtmn -macht es 


Franklin Disc-Drive-Card für APPLE II u, 


Fordern Sie unseren kostenlosen Katalog an. 


Bühler Computer. Postfach 32,7570 Baden-Badeni TeL (07221) 71004 




MO^BSTEin 


besonders preisgünstig 


Voll Apple tauglich 
Für 2 Disc-Drive. 
Best.-Nr. 94014 


Cjppls //c + zcoaitcg LauFcoarH + Druclfcr 
(DLp, l20 Zchn/g, 2^b puFFar)+ lntarf.^.,.^030,- 

für irnJiBajitisr 


9“ Monitor. Monochrom grün ent- 
spiegelt. Auflösung über 20 MHz. 
BAS/Video-Eingang. Eigenes Netz¬ 
teil 220 V. Passend für alle Apple und 
Commodore und ähnliche. 

Best.-Nr. 65032 NUR DM 199,90 

Garantie 1 Jahr. Eig. Kundendienst. 


Sonderpi 


Drucker Apple, Epsont^lBM-kompalibel !! 
nate 20 : über 100 Farbstufen, Schönschrift 2Kb Puffer 
nur B9B,- DM 

Okimale 192 160 Zchn/s, B Kb Puffert auch für Mac) !! 


B u ro sp a rang e bot; 
eantuiorler mit Fernabl 


irvicc 


in £940 CfyNLDBTPJN S D5t7'1 / 3033 atkeU1«A1l. 


Biihlpr Shon WplHcfrpRp 4ß 7^00 Kprlfiriihp 

■ 

1 



DUIIICI wllUpj VValUOll dIJw f wwU iVCll I9l UIIC 






Computer-unterstütztes Lernen 

• Programme für Apple lle/llc/teilw. + Maschinenschreiben, Basic, Wortschatz¬ 
trainer, Computer-Simulator, Schneilesen, Rechtschreibtrainer, Deutsche 
Grammatik, Mathe, Physik/Chemie, Fremdsprachen, Fahrschule, usw, 

• Demo-Diskette mit 9 Programmen DM 10,- 

• Gesamtkatalog kostenlos. 


• Frei-Programme (Public Domain) Liste mit über 5000 
Programmen, DM 10,- (bar oder Briefmarken) 


* 

iNTus Software 


Kaiserstr. 21.7890 Waldshut, Telefon: 07751 - 7920 
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Computerbucher 

die gehen, für Computer 
die kommen. _ 


Sinclair 

€LL-Begleiter 


HiMMs 


Boris Allan 

Sinclair QL-Begleiter 

1985, ca. 100 S., kart.. DM 35,- 
ISBN: 3-7785-1101-7 




Apple-Assembler 

lernen 

Band1: Einführung in die 
Assembler-Programmierung 



Jürgen Kehrel 
Apple-Assembler lernen 

Band 1: Einführung in die 
Assembler-Programmierung 
des 6502 

1985,180S., kart., DM 38,- 
ISBN; 3-7785-1151-3 


KlauG Brauer 


Programmieren 

lnroRTRAN77 



llg||HU4h<s 


Klaus Brauer 

Programmieren in 
FORTRAN 77 

1985, 308 S., kart., DM 46,- 
ISBN: 3-7785-1068-1 


Ame Schapers 


Bewegte 

Apple-Grafik 

DOS Toolkit-Erweiterungen 



Arne Schäpers 
Bewegte Grafik 

Apple DOS Toolkit Erweite¬ 
rungen 

1985,305 S., 6 Abb., kart., DM 58,- 
ISBN: 3-7785-1150-5 


W. EGGERICHS 


dBase II 

ßortd 1 

Einführung ♦ 



Wolfgang Eggerichs 

dBASE II 

Band 1: Einführung 
2., verb. Auflage 1985 
180 S., kart., DM 39,80 
ISBN: 3-7785-1147-5 



Hiithig 


Manfred Walter Thoma 
Brücke zum Commodore 64 

Erweitertes Handbuch 
1985,277 S., kart., DM 46,- 
ISBN: 3-7785-1095-9 



009 Einführunip- mö 
für AnwondQr' 1 


rsso ^ 

CB8ä 


Wolfgang Eggerichs, 

Roman Weiß 

CBASIC 

Das Einführungs- und Nach¬ 
schlagewerk für den Anwen¬ 
der 

1985,172 S., kart., DM 39,80 
ISBN: 3-7785-1015-0 


CPC-4M/6M 

Praxis 


iQll Hiioua 


Manfred Walter Thoma 
CPC 464/664-Praxis 
Band 1: Schwerpunkt Grafik 
1985,188 S., kart., DM 34,- 
ISBN: 3-7785-1149-1 


Weitere Titel und Informationen finden Sie in unserem Computerbuch-Katalog: 

Dr. Alfred Hüthig Verlag, Postfach 1028 69, 6900 Heidelberg 1 



Hüthig 
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^ kuRzbERichTE.^^ 


Ausgabe und Eingabe mit 

TYPETERM® 

im Slot Ihres 


APPLE ll/lle 

Das bedeutet: Computertextverarbeitunq von der 

Schreibmaschinentastatur. Steckerfertig ohne Umbau. 

Kein weiteres Interface erforderlich. 


TYPETERM - ein starkes Interface für starke 
Maschinen! 

• Alle Cursor- u. CTL-Befehle bei Eingabe. 

• 2 Zeichensätze deutsch/ASCII 
(m. ASCII-Typenrad) 

• Für alle Betriebssysteme 

• Hoch/Tiefstellen, autom. Unterstreichen 

• Var. Zeichen- u. Zeilenabstände 

• Autom. Papierzuführung mit CF-100 
(ab EM-80) vom Stapel 


Ausgabe mit 

TYPETERM® 

JUNIOR 

• 3 verschiedene Schriftstärken 

• Automatisches Unterstreichen 

• 2 Zeichensätze deutsch/ASCII 
(m. ASCII-Typenrad) 

• 2 Zeichenabstände 

• Für alle Betriebssysteme 


ab DM 899,- incl. AX-10 



CE- 51 mit TYPETERM , 

. . 1 348,- 

CE-51 


CE- 60 mit TYPETERM . 

. , 1 652- 



CE- 61 mit TYPETERM . 

CE- 68 mit TYPETERM , 

CE- 70 mit TYPETERM . 

. * 1 737- 

. . 2297,- 

. . 2758,- 

Cabie Kii A (immer erford, 
ab EM-80) 

. 103,- 

EM- 80 mit TYPETERM . 

EM- 85 mit TYPETERM . 

EM-100 mit TYPETERM . 

, . 2037,- 

. . 3072,- 

. - 3072,- 

AX-10 mit TYPETERM JUNIOR 

CE-25 mit TYPETERM JUNIOR 

. 899,- 

. 1048,- 

EM-250 mit TYPETERM . 

. . 5075.- 

TYPETERM-Kit für CE-50 . » 

^ 468,- 


TYPETERM - Mit diesem steckfertigen Interface an Ihrer BROTHER-Typenradschreib- 
maschine lassen Sie Ihren APPLE korrespondenzreif Schönschreiben. Wenn Sie 
wollen, benutzen Sie mit allem Komfort die Schreibmaschinentastatur zur Eingabe für 
Ihre Textverarbeitung oder als Ersatz für Ihr Keyboard. Anschließend druckt oder 
schreibt Ihre Schreibmaschine wahlweise ASCII- oder deutschen Zeichensatz, Hoch- 
und Tiefstellungen, automatisch unterstreichend in variablen Zeichen- und Zeilen¬ 
abständen, viele Sonderzeichen und vieles andere mehr. Selbstverständlich für alle 
Betriebssysteme. Ideal für den beliebten Wordstar unter CP/M. Die moderne elektroni- 
scmö Typenradschreibmaschine steht Ihnen natürlich auch allein weiterhin unverändert 
zur Verfügung. 

TYPETERM JUNIOR - wahlweise mit AX-10 oder CE-25. Unsere besonders günstigen 
Gespanne zur Ausgabe am APPLE, ebenfalls steckfertig. Mit Ihrer Textverarbeitung und 
TYPIETERM JUNIOR können Sie dann selbstverständlich auch in verschiedenen 
Schriftstärken wahlweise im deutschen oder ASCII- 
Zeichensatz Schönschreiben, zentrieren, automatisch 
unterstreichen und rechts- oder linksbündig schreiben. 
Für alle Betriebssysteme. Auch als moderne elektro¬ 
nische Typenradschreibmaschinen können sich 
AX-10 und CE-25 sehen lassen: Lift-off-Korrektur, 
schneller Typenradwechsel im Drop-In-System für 
viele verschiedene Schriftarten, 40-bzw. 20- 
Zeichen-Korrekturspeicher usw. usw. 

EM-80 



brother 

Die Zukunft heute 


fftfcvbwft ^ Mreches GmbH 
""^ ****** Post!. 3004 Isernhagen 4 
electronic Telefon 051 39-87393 


(3) II+ (mit Videx) oderJferZSO- 
Karte, 2 LaufwerJteC(4) CP/M; 
dBase; (5)^J3€r HMENUE (nach 
StarMjofT'dBase); (7) Nachtrag in 
HelflO/85, S. 21 

IDSEARCH 

(1) Schiüsselwörter in UCSD^Pas- 
cai haibfett drucken (s.a: Disk #9); 

(2) Heft 8/85, S:''48; (3) il+, lie 
oder llc; (4JÜCSD-Pascal; (5) E(x- 
ecute) IDSEARCH 

FAKULTAET.DEMO 

T.FAKULTAET 

FAKULTAET 

(1) Berechnung von Fakultäten bis 
99991; (2) Heft 8/85, S. 56; (3) il + 
(mit G/K), ile oder ilc; (4) DOS 
3.3; (5) RUN EAKULTAET^EMO 

GRAFIK.DEMOS 

(1) Demos zur Anwendung der 
HGR-Grafik; (2) Heft 8/85, S. 67; 

(3) II+, Ile oder llc; (4) DOS 3.3 
oder ProDOS; (5) RUN GRAFIK¬ 
.DEMOS , 

ZEICHENJAGD 

(1) Reaktionsspiel als Applesoft- 
Einzeiler; (2) Heft 8/85, S. 69; (3) 


ll-F, Ile oder llc; (4) DOS 3.3 oder 
ProDOS; (5) RUN ZEICHENJAGD 

T.RAM.FRE.NEU 

RAM.FRE.NEU 

(1) Neufassung von RAM.FRE; (2) 
Heft 1-2/85, S. 22; (3) II + , He oder 
llc; (4) DOS 3.3; (5) unselbstän¬ 
dig; (6) die Fassung auf Disk #2 
enthält einen Fehler 


Disk #9 

(UCSD-Pascal; Hefte 1-2/^6' - 10/ 
85) 

Folgende Programm sind bereits 
auf anderen ^rnmeldisketten im 
DOS-3.3-Forffiat erschienen. 

DUeDfR.TEXT 

pUt>DIR.CODE 

fvgl. Disk #2) 

GETDOS.TEXT 

GETDOS.CODE, 

(vgl. Disk *2] ' 

MOUSEsfuFF.TEXT 

MOpSlESTUFF.CODE 

TESTMOUS.TEXT 

T^STMOUS.CODE 


DRAWMOUSE.TEXT 
drawmouse.cd6e 

MOUSE.ASS.TEJtT 
MOUSE.ASS.CbDE 
M0USE.UB,RARY 

(vgl. Disk p'4] 

/ 

TRANß'CENO.TEXT 
TRANSCEND.CODE/^ 

(v^ff Disk #5) 

RAMDISK94.TEXT 
INIT.TEXT / 

INSTALL.TEXT 
RAMDISK^.CODE 

(vgl. Disk^6) 

IDSEARCHTEXT 
IDS^RCH.CODE 

(vgj/Disk #8) / 

7 

allgjext 
ÄLL aCODE 
MUEL.TEXT 
MUEL.COpE 

(1) Konvertierung von ProDOS- in 
Pascal‘l^xtfii 0 G; (2) Heft 9/85, S. 
58; (3)/+ (mit LC). Ile oder llc; (4) 
UCSp-Pascal 1J/1.2; (5) E(xe- 
cut^) ALLG.CODE (oder MUEL.- 
OODE)i (6) ALLG.CODE oder 


/ 


/ 


MUEL.CODE muß in Laufwerk #4 

sein. 


CRUNCH.TEXT 

CRUNCH.CQDE 

MOVER.T^XT 

MOVER^CODE 

CRUNCHER.TEXT 

crmncher.code 

(y^. Disk #10) 


Disk #10 

(DOS 3.3; Heft 9 + 10/85) 


T.AS.FILER 

AS.FILER 

STARTUP 

ENDUP 

RAMDISKLC 

(1) Datei-Kopierprogramm als Ap- 
plesoft-Erweiterung; (2) Heft 9/85, 

S. 12; (3) ll-h (mit G/K), Ile oder 
llc; (4) DOS 3.3 (auch 64K); (5) 
RUN STARTUP; RUN ENDUP (6) 
RAMDISKLC (von Disk #2) wird 
von STARTUP aufgerufen '2 

MKBOOT.BAS 

T. MKBOOT.OBJ 
MKBOOT.OBJ 
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T.DOBOOT.OBJ 

DOBOOT.OeJ 

(1) Installierung emes'^^'chnelleren 
ProDOS-ßoot-Brogramms; (2) 
Heft 9/S5,.&. 20: (3) (mH LC), 
lie 0d,örKc: (4) PrcDOS; (5) un* 
selbständig 

SUPER.HGR 

SUPER.HGR.ASM 

(1) Hardcopy-Programm für NEC- 
und ITOH-Drucker; (2) Heft 9/85, 

S. 30; (3) II4- oder Ile; NEC- oder 
ITOH-Drucker mit entsprechen¬ 
dem Interface: (4) DOS 3.3; (5) 
RUN SUPER.HGR (für NEC 8023) 

3 

T. FLAG.MONITOR 
FLAG.MONITOR 
T.FLAG.MONITOR.TEST 
FLAG.MONITOR.TEST 

(1) Taktzähler für Assemblerpro¬ 
gramme; (2) Heft 9/85, S. 32; (3) 
ll-r, Ile oder llc; (4) DOS 3.3; (5) 
BLOAD FLAG.MONITOR; BLOAD 
FLAG.MONITOR.TEST; PR#1 
(Drucker einschaltei^ 

VERSAL 

T.VERSAL 

(1) Umwandlung von Klein- in 
Großbuchstaben der Texte in ei¬ 
nem Applesoft-Programm; (2) Heft 
9/85, S. 31; (3) ll-F; (4) DOS 3.3 
oder ProDOS; (5) RUN VERSAL; 
LOAD Programm; CALL 768 

(o 

GRAFIK.EDITOR 

GRAF.QUATTR0.1 

(1) Editor für Hires-Grafik; (2) Heft 
10/85, S. 6; (3) II+ (mit G/K), Ile 
oder llc; (4) DOS 3.3; (5) RUN 
GRAFIK.EDITOR; (6) GRAF- 
.QUATTR0.1 (schon auf Disk +8) 
wird von GRAFIK.EDITOR automa¬ 
tisch geladen ^ 

AS.DOUBLE.HIRES.DEMO 

T.AS.DOUBLE.HIRES 

AS.DOUBLE.HIRES 

(1) Double-Hires für Applesoft; (2) 
Heft 10/85, S. 14; (3) Ile (mit64K- 
Karte) oder llc; (4) DOS 3.3; (5) 
RUN AS.DOUBLE.HIRES.DEMO 

g 

T.CHARSET 

CHARSET 

DEMO.CTRL 

CTRLDISABLE 

T.ENABLE.DISABLE 

HTAB1.BUG 

INVERSE.BUG 

T.INT.IIE.NEU 

(1) Beispiel- und Testprogramme 
zu den neuen Ile-ROMs; (2) Heft 
10/85, S. 22; (3) Ile mit neuen 
ROMs (Enhanced Ile); (4) DOS 3.3 
oder ProDOS: (5) BRUN CHAR¬ 
SET; RUN DEMO.CTRL; RUN 
CTRL.DISABLE; RUN HTAB1 .- 
BUG; RUN INVERSE.BUG; (6) 
T.INT.IIE.NEU gibt alle geänderten 
Steilen als Assemblerlisting wieder 


EPBOM 

T*EPROMMER 

EPROMMER 

(1) Hilfsprogramme zum EPROM- 
Programmlergerät: (2) Heft 10/35. 
S. 40; [3) II+ oder Ile: (4) DOS 
3.3: (5) RUN EPROM: (6) EPROM¬ 
MER enthält die Firmware des ferti¬ 
gen Geräts yf L 

CRUNCH.TEXT 

MOVER.TEXT 

CRUNCHER.TEXT 

(1) Freigabe doppelt belegiefSpei- 
cher unter UCSD-P^stfal 1.2; (2) 
Heft 10/85, S. 5P^'f3) Ile mit 64K- 
Karte oder,,Mb'; (4) UCSD-Pascal 
1.2 12§K^Version; (5) E(xecute) 
CRUJMtlH (nach dem Assemblie- 
refi und Linken) 


PUZZLE 

PUZZLE.PDL 

(1) Verschiebespiel; (2) Heft 10/ 
85, S. 65; (3) ll-K, Ile oder llc; 
Apple-Maus (PUZZLE) oder Pad¬ 
dies (PUZZLE.PDL); (4) DOS 3.3; 
(5) RUN PUZZLE oder RUN PUZ¬ 
ZLE.PDL 

UCSD.TEXT 

TURB.PAS 

(1) Pascal-Kompaktkurs für Ap-.. 
plesoft-Programmierer; (2) Hbfl 
10/85, S. 46; (3) ll-H, Ile^dir llc; 
(4) UCSD.TEXT für 4^-Pascal 
1.1/1.2 und TURB^S für Turbo- 
Pascal 3.0 od^/älter; (5) E(xecute) 
oder R(un);4^vorher UCSD.TEXT 
mit G^TÄS auf UCSD-Pascal- 
Formrfund TURB.PAS mit APDOS 
CP/M-Format konvertieren: 
/Pascal-Kurs als 16seltiger Sonder- 
^teil In Heft 12/85 /}^- 


Inserentenverzeichnis peeker 11/85 

aaa electronic gmbh, Freiburg ....... 

. 73 

Abacomp, Frankfurt. 

. 13 

ACS, Detmold. 

11 

Brainware, Wiesbaden.. . . 

. 73 

Bühler Elektronik, Baden-Baden. 

75 

ccp-datentechnik, Hamburg. 

9 

Copy-Team, Erlangen. 

. 69 

D.O.S. Computersysteme, Schwäbisch Hall . . 

. 13 

Frank & Britting GmbH, Forst. 

11 

N. Hunstig, Münster. 

9 

Intus, Waldshut-Tiengen. 

75 

Interkom electronic, Isernhagen. 
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Jeschke, Kelkheim. 

. 13 

KFC-KönIgstein. 

. 75 

MCI GmbH, Bergisch Gladbach. 

. 25 

E.-W. Meyer, Frohnhausen. 

. 13 

Micromint Computer GmbH, Erkrath. 

11 

U. Mohwinkel Electronic, Leverkusen . , 

, 13 

Pandasoft, Berlin.. . . . . 

. 15 

Summagraphics, München 

, 75 

Tewi-Verlag, München.. . * 

. 23 

Ueding electronics, Menden 

9 


Disk #11 

(DOS 3.3; Heft 11/85) 

SPRITE.EDIT 

T.SPRIT.EDIT.ASS 

SPRITE.EDIT.ASS 

T.ASTA 

ASTA 

T.ASTA.DEMO 

ASTA.DEMO 

ASTA.DEM0.1 

AD1 

AD2 

AD3 

AD4 

AD5 

(1) Grafik-Animation mit bewegten 
Sprites und Sprite-Editor; (2) Heft 
11/85, S. 6; (3) ll-K (für SPRITE.- 
EDIT mit G/K), Ile oder llc; (4) 
DOS 3.3; (5) RUN ASTA.DEMO.1 
oder BLOAD ASTA; BRUN ASTA¬ 
.DEMO 

T.PLAKAT 

PLAKAT.INSTALL 


PLAKAT 

PLAKAT.DEMO 

(1) Vergrößerung einer HGR-Seite 
zum Ausdruck von Plakaten; (2) 
Heft11/85, S. 20;(3) DOS 3.3; (4) 
ll-F (mit G/K), Ile oder llc; (5) RUN 
PLAKAT.DEMO; Anpassung des 
Applesoft-Programms an eigenes 
Drucker-Interface ^unbedingt erfor¬ 
derlich! Z 

DISK.CHIRURG 

(1) Überprüfung einer Diskette auf 
schadhafte Sektoren; (2) Heft 11/ 
85, S. 24; (3) DOS 3.3 (nur 48K): 
(4) ll-K, Ile oder llc; (5) RUN DISK¬ 
.CHIRURG /-Y 

FILER.O 

FILER.1 

FILER.2 

SYSTEM.PATCH.O 
SYSTEM.PATCH.1 
PRODOS.O 
PRODOS.1 
PRODOS.2 
PRODOS.3/ 

PRODO^ 

(1) Um^ellung von ProDOS auf 
Laufv^rke mit höherer Kapazität; 

(2) jdeft 11/85, S. 29; (3) 11-^ (mit 
LCi oder Ile; Ehring-Controller 


/ 


oder Kompatibler (4) ProDOS 
1.0.1 und FILER 1.0.1; (5) s. Heff 

T.PRINT.USING 
PRINT.USING ^ 
T.PRINT.USir^G 
PRINT.USINaG 
PRINT^SflNG.DATA 

prij^tIjsing.g.data 

F^INT.USING.DEMO 

(t) Formatierte Ausgabe von Zah¬ 
len als Applesoft-Erweiterung: (2) 
Heft 11/85, S. 49; (3) II + , Me oder 
llc; (4) DOS 3.3 oder ProDOS; (5) 
RUN PRINT.USING.DEMO (6) 
PRINT.USING.G gibt führende 
Null bei negativen Zahlen (-0.0 bis 
-0.9) aus ^ 

T.REF.TEST 

REF.TEST 

(1) Hilfsprogramm zur Überprü¬ 
fung von Zeilenverweisen in Ap¬ 
plesoft: (2) Heft 11/85, S. 55; (3) 
ll-K, Ile oder llc; (4) DOS 3.3 oder 
ProDOS; (5) BRUN REF.TEST; zu 
prüfendes Applesoft-Programm la¬ 
den; dann & eingeben ^ 
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In Vorbereitung 


TurtleGraphics-Library-Paket 


von Dieter Geiß 

Turtle-Utilities für Fenstertechnik 
und Apple-Maus in einfacher 
und doppelter Hires-Grafik für 
Pascal 1.1/1.2 auf Apple ll-F/e/c 
mit Maus oder Joystick. 

2 Disketten mit umfangreichem 
Manual, DM 98,- 
Erscheinungstermin etwa Ende 
Oktober 


t ListDir Uolunes 



Das Utility-Paket besteht aus vier Modulen, die von Programmierern benutzt werden können, um 
professionelle grafische Anwendungsprogramme in Pascal zu schreiben. 


Benötigt wird ein Apple Pascal Betriebssystem, entweder die Version 1.1 oder die neue Version 
1.2. Bestehende Programme laufen ohne Einschränkung mit der neuen „TurtleGraphics“, wenn 
diese nicht zu viel Speicherplatz verbraucht haben, da die neue „TurtleGraphics“ umfangreicher 
als die alte ist. 

Im einzelnen bietet das Paket folgende Möglichkeiten: 

- volle Kompatibilität mit der alten „TurtleGraphics“ 

- lauffähig auf Pascal 1.1 und 1.2 

- funktionsfähig mit angeschlossener UltraTerm-Karte 

- alle zeitkritischen Funktionen in reinem Assembler programmiert 

- Benutzung der zweiten Flires-Seite ($4000-$5FFF) möglich 

- für Apple llc und Apple Ile mit erweiterter 80-Zeichen-Karte Benutzung der doppelten Flires- 
Grafik mit 560 x 192 Punkten bzw. 16 neuen Farben möglich 

- schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

- Linearisierung von Teilen des Flires-Schirms 

- Benutzung mehrerer Zeichensätze gleichzeitig 

- Laden und Speichern von Flires-Bildern mit Ausdruck über Pascal-SUPERDUMP 

- Scrolling des Flires-Schirms oder eines Teils in vier Richtungen 

- drei verschiedene Schriftarten: Fett-, Breit- und Proportionalschrift, beliebig mischbar 
(acht Möglichkeiten) 

- spezielle schnelle Ausgabe von Text 

- Cursor bei Eingabe frei programmierbar 

- Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL-Werten im Grafikmodus 

- Menüzeile wie beim Macintosh (Die nachfolgenden Module benötigen Maus/Joystick) 

- Pull-down-Menüs 

- Laden und Speichern von Fenstern (Windows) 

- Öffnen von Fenstern 

- Aktivieren und Deaktivieren von Fenstern 

- Verschieben und Vergrößern/Verkleinern von Fenstern 

- Scrolling von Fensterinhalten in allen vier Richtungen 

- Umfangreiche Demos als Quelltexte. 

Hüthig Software Service • Postfach 102869 * 6900 Heidelberg 

























































































